From 8cac567ceddb15722aa10910f401f5c66bf6fac9 Mon Sep 17 00:00:00 2001
From: Jussi Pakkanen <jpakkane@gmail.com>
Date: Fri, 1 Aug 2014 16:33:30 +0300
Subject: [PATCH] Fortran suffix improvingness.

---
 environment.py | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/environment.py b/environment.py
index 5f0702b66..c5b51f60b 100644
--- a/environment.py
+++ b/environment.py
@@ -1194,7 +1194,8 @@ end program prog
         return ['-o', outputname]
 
     def can_compile(self, src):
-        if src.lower().endswith('.f95'):
+        suffix = os.path.splitext(src)[1].lower()
+        if suffix == '.f' or suffix == '.f95':
             return True
         return False