diff options
Diffstat (limited to 'test cases/fortran/12 submodule/parent.f90')
-rw-r--r-- | test cases/fortran/12 submodule/parent.f90 | 5 |
1 files changed, 5 insertions, 0 deletions
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 |