lib/linguist/heuristics.rb in github-linguist-4.7.1 vs lib/linguist/heuristics.rb in github-linguist-4.7.2

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