blob: 1a4812a3729adb1df585cd71ba3e8090186a3c12 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
! { 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. '
type AtmModel
character (len=len(ComputeDryAtmModel)) :: moistDryStr
end type AtmModel
END MODULE AtmoIono
module AtmoIonoSphere
use EGOPS_Utilities
use AtmoIono
end module AtmoIonoSphere
|
