From 7b6beddb93d9dd7300bcc1361aec9e77cc68ff3b Mon Sep 17 00:00:00 2001
From: Christos Zoulas <christos@zoulas.com>
Date: Thu, 5 Nov 2015 18:47:16 +0000
Subject: [PATCH] restrict fortran

---
 magic/Magdir/fortran | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/magic/Magdir/fortran b/magic/Magdir/fortran
index 826e9123..6abc2f70 100644
--- 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
-- 
2.50.1