comparison gcc/testsuite/gfortran.dg/initialization_12.f90 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900 (2017-10-27)
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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