Subversion Repositories openrisc

! { 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" } }