1! { dg-do compile }
2! PR fortran/32945 - ICE in init expressions
3!
4! Contributed by Florian Ladstaedter <flad AT gmx DOT at>
5!
6
7MODULE EGOPS_Utilities
8CONTAINS
9  FUNCTION dirname(fullfilename)
10    Character(LEN=*),  Intent(In)    :: fullfilename
11    Character(LEN=LEN(fullfilename)) :: dirname
12    dirname = ''
13  END FUNCTION
14END MODULE EGOPS_Utilities
15
16MODULE AtmoIono
17  CHARACTER(LEN=10), PARAMETER :: ComputeDryAtmModel = 'Dry Atm. '
18
19  type AtmModel
20    character (len=len(ComputeDryAtmModel)) :: moistDryStr
21  end type AtmModel
22END MODULE AtmoIono
23
24module AtmoIonoSphere
25  use EGOPS_Utilities
26  use AtmoIono
27end module AtmoIonoSphere
28