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] - Rev 708

Go to most recent revision | Compare with Previous | Blame | View Log

! { 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

  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" } }

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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