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