Add support for newer ifort versions of the Intel Fortran compiler on Linux. (Jonathan Gurley) Fortran 90 tests for future use. (Chris Murray)

2 files changed, 40 insertions, 0 deletions

diff --git a/test/Fortran/F90.py b/test/Fortran/F90.py
index 4167410..7825ae6 100644
--- a/test/Fortran/F90.py
+++ b/test/Fortran/F90.py
@@ -166,18 +166,38 @@ bar.Program(target = 'bar', source = 'bar.f')
 
     test.write('foo.f', r"""
       PROGRAM FOO
+      USE MOD_BAR
       PRINT *,'foo.f'
+      CALL P
       STOP
       END
+      MODULE MOD_BAR
+         IMPLICIT NONE
+         CONTAINS
+         SUBROUTINE P
+            PRINT *,'mod_bar'
+         END SUBROUTINE P
+      END MODULE MOD_BAR
 """)
 
     test.write('bar.f', r"""
       PROGRAM BAR
+      USE MOD_FOO
       PRINT *,'bar.f'
+      CALL P
       STOP
       END
 """)
 
+    test.write('foo_mod.f', r"""
+      MODULE MOD_FOO
+         IMPLICIT NONE
+         CONTAINS
+         SUBROUTINE P
+            PRINT *,'mod_foo'
+         END SUBROUTINE P
+      END MODULE MOD_FOO
+""")
 
     test.run(arguments = 'foo' + _exe, stderr = None)
 
diff --git a/test/Fortran/F90FLAGS.py b/test/Fortran/F90FLAGS.py
index f598986..375df71 100644
--- a/test/Fortran/F90FLAGS.py
+++ b/test/Fortran/F90FLAGS.py
@@ -170,18 +170,38 @@ bar.Program(target = 'bar', source = 'bar.f')
 
     test.write('foo.f', r"""
       PROGRAM FOO
+      USE MOD_BAR
       PRINT *,'foo.f'
+      CALL P
       STOP
       END
+      MODULE MOD_BAR
+         IMPLICIT NONE
+         CONTAINS
+         SUBROUTINE P
+            PRINT *,'mod_bar'
+         END SUBROUTINE P
+      END MODULE MOD_BAR
 """)
 
     test.write('bar.f', r"""
       PROGRAM BAR
+      USE MOD_FOO
       PRINT *,'bar.f'
+      CALL P
       STOP
       END
 """)
 
+    test.write('foo_mod.f', r"""
+      MODULE MOD_FOO
+         IMPLICIT NONE
+         CONTAINS
+         SUBROUTINE P
+            PRINT *,'mod_foo'
+         END SUBROUTINE P
+      END MODULE MOD_FOO
+""")
 
     test.run(arguments = 'foo' + _exe, stderr = None)