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)
|
||||
|
3
Tests/Fortran/in_interface/main.f90
Normal file
3
Tests/Fortran/in_interface/main.f90
Normal file
@ -0,0 +1,3 @@
|
||||
program hello
|
||||
use test_interface
|
||||
end program hello
|
12
Tests/Fortran/in_interface/module.f90
Normal file
12
Tests/Fortran/in_interface/module.f90
Normal 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
7
Tests/Fortran/test_use_in_comment_fixedform.f
Normal 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
7
Tests/Fortran/test_use_in_comment_freeform.f90
Normal file
@ -0,0 +1,7 @@
|
||||
PROGRAM foo
|
||||
! USE bar
|
||||
! use bar
|
||||
! Use bar
|
||||
|
||||
WRITE(*,*) 'Hello, Fortran world.'
|
||||
END PROGRAM
|
Loading…
x
Reference in New Issue
Block a user