diff options
Diffstat (limited to 'Tests/Fortran')
| -rw-r--r-- | Tests/Fortran/CMakeLists.txt | 10 | ||||
| -rw-r--r-- | Tests/Fortran/in_interface/main.f90 | 3 | ||||
| -rw-r--r-- | Tests/Fortran/in_interface/module.f90 | 12 | ||||
| -rw-r--r-- | Tests/Fortran/test_use_in_comment_fixedform.f | 7 | ||||
| -rw-r--r-- | Tests/Fortran/test_use_in_comment_freeform.f90 | 7 |
5 files changed, 39 insertions, 0 deletions
diff --git a/Tests/Fortran/CMakeLists.txt b/Tests/Fortran/CMakeLists.txt index 99132de..c6c6689 100644 --- a/Tests/Fortran/CMakeLists.txt +++ b/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) diff --git a/Tests/Fortran/in_interface/main.f90 b/Tests/Fortran/in_interface/main.f90 new file mode 100644 index 0000000..28bcf36 --- /dev/null +++ b/Tests/Fortran/in_interface/main.f90 @@ -0,0 +1,3 @@ +program hello + use test_interface +end program hello diff --git a/Tests/Fortran/in_interface/module.f90 b/Tests/Fortran/in_interface/module.f90 new file mode 100644 index 0000000..1064d74 --- /dev/null +++ b/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
\ No newline at end of file diff --git a/Tests/Fortran/test_use_in_comment_fixedform.f b/Tests/Fortran/test_use_in_comment_fixedform.f new file mode 100644 index 0000000..e670939 --- /dev/null +++ b/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 diff --git a/Tests/Fortran/test_use_in_comment_freeform.f90 b/Tests/Fortran/test_use_in_comment_freeform.f90 new file mode 100644 index 0000000..c992a04 --- /dev/null +++ b/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 |