OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [initialization_12.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! PR fortran/32945 - ICE in init expressions
3
!
4
! Contributed by Florian Ladstaedter 
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
28
 
29
! { dg-final { cleanup-modules "egops_utilities atmoiono atmoionosphere" } }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.