Improve FORTRAN heuristic.

This commit is contained in:
Lars Brinkhoff
2014-12-08 13:53:19 +01:00
parent b76ac7bab0
commit e393f7feb4

View File

@@ -129,7 +129,7 @@ module Linguist
disambiguate "FORTRAN", "Forth" do |data|
if /^: /.match(data)
Language["Forth"]
elsif /^([c*][^a-z]| subroutine\s)/i.match(data)
elsif /^([c*][^a-z]| (subroutine|program)\s|!)/i.match(data)
Language["FORTRAN"]
end
end