Parcourir la source

ENH: Added test for 'use' keyword in a comment. Patch from Maik Beckmann. See bug#5809.

Brad King il y a 18 ans
Parent
commit
aa9ba5c3ef

+ 10 - 0
Tests/Fortran/CMakeLists.txt

@@ -12,4 +12,14 @@ IF(CMAKE_Fortran_COMPILER_SUPPORTS_F90)
     test_module_main.f90
     test_module_implementation.f90
     test_module_interface.f90)
+
+  ADD_EXECUTABLE(test_use_in_comment_fixedform
+    test_use_in_comment_fixedform.f)
+  ADD_EXECUTABLE(test_use_in_comment_freeform 
+    test_use_in_comment_freeform.f90)
+
+  ADD_EXECUTABLE(test_in_interface 
+    in_interface/main.f90
+    in_interface/module.f90)
+
 ENDIF(CMAKE_Fortran_COMPILER_SUPPORTS_F90)

+ 3 - 0
Tests/Fortran/in_interface/main.f90

@@ -0,0 +1,3 @@
+program hello
+    use test_interface
+end program hello

+ 12 - 0
Tests/Fortran/in_interface/module.f90

@@ -0,0 +1,12 @@
+module test_interface
+
+    interface dummy
+        module procedure module_function
+    end interface
+
+contains
+
+    subroutine module_function
+    end subroutine
+
+end module test_interface

+ 7 - 0
Tests/Fortran/test_use_in_comment_fixedform.f

@@ -0,0 +1,7 @@
+      PROGRAM foo
+C     USE bar       
+C     use bar       
+C     Use bar       
+
+      WRITE(*,*) 'Hello, Fortran world.'
+      END PROGRAM

+ 7 - 0
Tests/Fortran/test_use_in_comment_freeform.f90

@@ -0,0 +1,7 @@
+PROGRAM foo
+! USE bar       
+! use bar       
+! Use bar       
+
+    WRITE(*,*) 'Hello, Fortran world.'
+END PROGRAM