kolan
/
CMake
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

This commit is contained in:
Brad King 2007-10-10 09:09:09 -04:00
parent ea56464864
commit aa9ba5c3ef
5 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
Tests/Fortran/CMakeLists.txt
View File

@ -12,4 +12,14 @@ IF(CMAKE_Fortran_COMPILER_SUPPORTS_F90)
test_module_main.f90 test_module_main.f90
test_module_implementation.f90 test_module_implementation.f90
test_module_interface.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) ENDIF(CMAKE_Fortran_COMPILER_SUPPORTS_F90)

3
Tests/Fortran/in_interface/main.f90 Normal file
View File

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

12
Tests/Fortran/in_interface/module.f90 Normal file
View File

@ -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
Tests/Fortran/test_use_in_comment_fixedform.f Normal file
View File

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

7
Tests/Fortran/test_use_in_comment_freeform.f90 Normal file
View File

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