30 lines
718 B
Fortran
30 lines
718 B
Fortran
! { dg-do compile }
|
||
! PR fortran/32945 - ICE in init expressions
|
||
!
|
||
! Contributed by Florian Ladstaedter <flad AT gmx DOT at>
|
||
!
|
||
|
||
MODULE EGOPS_Utilities
|
||
CONTAINS
|
||
FUNCTION dirname(fullfilename)
|
||
Character(LEN=*), Intent(In) :: fullfilename
|
||
Character(LEN=LEN(fullfilename)) :: dirname
|
||
dirname = ''
|
||
END FUNCTION
|
||
END MODULE EGOPS_Utilities
|
||
|
||
MODULE AtmoIono
|
||
CHARACTER(LEN=10), PARAMETER :: ComputeDryAtmModel = 'Dry Atm. '
|
||
|
||
type AtmModel
|
||
character (len=len(ComputeDryAtmModel)) :: moistDryStr
|
||
end type AtmModel
|
||
END MODULE AtmoIono
|
||
|
||
module AtmoIonoSphere
|
||
use EGOPS_Utilities
|
||
use AtmoIono
|
||
end module AtmoIonoSphere
|
||
|
||
! { dg-final { cleanup-modules "EGOPS_Utilities AtmoIono AtmoIonoSphere" } }
|