ENH: Added test for 'use' keyword in a comment. Patch from Maik Beckmann. See bug#5809.
This commit is contained in:
parent
ea56464864
commit
aa9ba5c3ef
|
@ -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)
|
||||
|
|
|
@ -0,0 +1,3 @@
|
|||
program hello
|
||||
use test_interface
|
||||
end program hello
|
|
@ -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
|
|
@ -0,0 +1,7 @@
|
|||
PROGRAM foo
|
||||
C USE bar
|
||||
C use bar
|
||||
C Use bar
|
||||
|
||||
WRITE(*,*) 'Hello, Fortran world.'
|
||||
END PROGRAM
|
|
@ -0,0 +1,7 @@
|
|||
PROGRAM foo
|
||||
! USE bar
|
||||
! use bar
|
||||
! Use bar
|
||||
|
||||
WRITE(*,*) 'Hello, Fortran world.'
|
||||
END PROGRAM
|
Loading…
Reference in New Issue