From aa9ba5c3efcd32ea631435318f63dc476ac39798 Mon Sep 17 00:00:00 2001 From: Brad King Date: Wed, 10 Oct 2007 09:09:09 -0400 Subject: ENH: Added test for 'use' keyword in a comment. Patch from Maik Beckmann. See bug#5809. --- Tests/Fortran/CMakeLists.txt | 10 ++++++++++ Tests/Fortran/in_interface/main.f90 | 3 +++ Tests/Fortran/in_interface/module.f90 | 12 ++++++++++++ Tests/Fortran/test_use_in_comment_fixedform.f | 7 +++++++ Tests/Fortran/test_use_in_comment_freeform.f90 | 7 +++++++ 5 files changed, 39 insertions(+) create mode 100644 Tests/Fortran/in_interface/main.f90 create mode 100644 Tests/Fortran/in_interface/module.f90 create mode 100644 Tests/Fortran/test_use_in_comment_fixedform.f create mode 100644 Tests/Fortran/test_use_in_comment_freeform.f90 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 -- cgit v0.12