30 lines
718 B
Fortran
30 lines
718 B
Fortran
|
! { dg-do compile }
|
|||
|
! PR fortran/32945 - ICE in init expressions
|
|||
|
!
|
|||
|
! Contributed by Florian Ladstaedter <flad AT gmx DOT at>
|
|||
|
!
|
|||
|
|
|||
|
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. <20>'
|
|||
|
|
|||
|
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" } }
|