restrict fortran

diff --git a/magic/Magdir/fortran b/magic/Magdir/fortran
index 826e9123e27c825cf5382110c16a4c3656f3cdb9..6abc2f70cb7149437c8fb34f21f04196b8ecdc69 100644 (file)
--- a/magic/Magdir/fortran
+++ b/magic/Magdir/fortran
@@ -1,7 +1,9 @@
 
 #------------------------------------------------------------------------------
-# $File: fortran,v 1.9 2015/06/17 19:55:27 christos Exp $
+# $File: fortran,v 1.10 2015/11/05 18:47:16 christos Exp $
 # FORTRAN source
-0      regex/100l      \^[Cc][\ \t]    FORTRAN program text
+# Check that the first 100 lines start with C or whitespace first.
+0       regex/100l      !\^[^Cc\ \t].*$
+>0     regex/100l      \^[Cc][\ \t]    FORTRAN program text
 !:mime text/x-fortran
 !:strength - 5