mirror of
https://github.com/Kitware/CMake.git
synced 2026-01-01 19:30:13 -06:00
b1f95e5b14
Name the module using CamelCase to test lower-case file name conversion. Also add coverage of existing "sibling" module.
23 lines
528 B
Fortran
23 lines
528 B
Fortran
module parent
|
|
implicit none
|
|
|
|
interface
|
|
|
|
! Test Fortran 2008 "module function" syntax
|
|
module function child_function() result(child_stuff)
|
|
logical :: child_stuff
|
|
end function
|
|
module function sibling_function() result(sibling_stuff)
|
|
logical :: sibling_stuff
|
|
end function
|
|
|
|
! Test Fortran 2008 "module subroutine" syntax
|
|
module subroutine grandchild_subroutine()
|
|
end subroutine
|
|
module subroutine GreatGrandChild_subroutine()
|
|
end subroutine
|
|
|
|
end interface
|
|
|
|
end module parent
|