summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/initialization_12.f90
blob: deef2077a553f9bd4c2fa17b8c9d2202aee2de3c (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
28
29
! { 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

! { dg-final { cleanup-modules "EGOPS_Utilities AtmoIono AtmoIonoSphere" } }