From 9a2f2c1fb24ce9aa3eb7fb770d16218544a9d962 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Tue, 10 Feb 2015 20:06:00 +0100
Subject: [PATCH] Tweak heuristic for free-form Fortran.

---
 lib/linguist/heuristics.rb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/linguist/heuristics.rb b/lib/linguist/heuristics.rb
index a28b054a..d4b99f4e 100644
--- a/lib/linguist/heuristics.rb
+++ b/lib/linguist/heuristics.rb
@@ -157,7 +157,7 @@ module Linguist
     disambiguate "FORTRAN", "Forth" do |data|
       if /^: /.match(data)
         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"]
       end
     end