Tweak heuristic for free-form Fortran.

This commit is contained in:
Lars Brinkhoff
2015-02-10 20:06:00 +01:00
parent ee0b4f96a8
commit 9a2f2c1fb2

View File

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