diff options
Diffstat (limited to 'test cases')
| -rw-r--r-- | test cases/fortran/12 submodule/child.f90 | 4 | ||||
| -rw-r--r-- | test cases/fortran/12 submodule/parent.f90 | 5 | ||||
| -rw-r--r-- | test cases/fortran/2 modules/mymod.f90 | 2 |
3 files changed, 11 insertions, 0 deletions
diff --git a/test cases/fortran/12 submodule/child.f90 b/test cases/fortran/12 submodule/child.f90 index 45b5b41..dc076ec 100644 --- a/test cases/fortran/12 submodule/child.f90 +++ b/test cases/fortran/12 submodule/child.f90 @@ -6,5 +6,9 @@ module procedure pi2tau pi2tau = 2*pi end procedure pi2tau +module procedure good +print *, 'Good!' +end procedure good + end submodule parent diff --git a/test cases/fortran/12 submodule/parent.f90 b/test cases/fortran/12 submodule/parent.f90 index 9d087d0..77c8fb4 100644 --- a/test cases/fortran/12 submodule/parent.f90 +++ b/test cases/fortran/12 submodule/parent.f90 @@ -6,6 +6,9 @@ interface module elemental real function pi2tau(pi) real, intent(in) :: pi end function pi2tau + +module subroutine good() +end subroutine good end interface end module parent @@ -17,4 +20,6 @@ tau = pi2tau(pi) print *,'pi=',pi, 'tau=', tau +call good() + end program diff --git a/test cases/fortran/2 modules/mymod.f90 b/test cases/fortran/2 modules/mymod.f90 index f8e7929..a45f5c9 100644 --- a/test cases/fortran/2 modules/mymod.f90 +++ b/test cases/fortran/2 modules/mymod.f90 @@ -1,3 +1,5 @@ +! module circle to be sure module regex doesn't allow commented modules + module circle implicit none |