! { dg-do compile } ! PR fortran/32945 - ICE in init expressions ! ! Contributed by Florian Ladstaedter ! 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" } }