URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [host_used_types_1.f90] - Rev 516
Compare with Previous | Blame | View Log
! { dg-do compile }
! Tests the fix for PR25532, which was a regression introduced by
! the fix for PR20244.
!
! Contributed by Erik Edelmann <eedelman@gcc.gnu.org>
module ModelParams
implicit none
type ReionizationParams
real :: fraction
end type ReionizationParams
type CAMBparams
type(ReionizationParams) :: Reion
end type CAMBparams
type(CAMBparams) CP
end module ModelParams
module ThermoData
use ModelParams
implicit none
contains
subroutine inithermo()
use ModelParams
if (0 < CP%Reion%fraction) then
end if
end subroutine inithermo
! The bug expressed itself in this subroutine because the component type
! information was not being copied from the parent namespace.
subroutine SetTimeSteps
if (0 < CP%Reion%fraction) then
end if
end subroutine SetTimeSteps
end module ThermoData
! { dg-final { cleanup-modules "ModelParams ThermoData" } }