gcc/testsuite/gfortran.dg/initialization_12.f90

   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
   7 MODULE EGOPS_Utilities
   8 CONTAINS
   9   FUNCTION dirname(fullfilename)
  10     Character(LEN=*),  Intent(In)    :: fullfilename
  11     Character(LEN=LEN(fullfilename)) :: dirname
  12     dirname = ''
  13   END FUNCTION
  14 END MODULE EGOPS_Utilities
  15
  16 MODULE AtmoIono
  17   CHARACTER(LEN=10), PARAMETER :: ComputeDryAtmModel = 'Dry Atm.  '
  18
  19   type AtmModel
  20     character (len=len(ComputeDryAtmModel)) :: moistDryStr
  21   end type AtmModel
  22 END MODULE AtmoIono
  23
  24 module AtmoIonoSphere
  25   use EGOPS_Utilities
  26   use AtmoIono
  27 end module AtmoIonoSphere
  28
  29 ! { dg-final { cleanup-modules "EGOPS_Utilities AtmoIono AtmoIonoSphere" } }