1! { dg-do compile } 2! Tests the fix for PR25532, which was a regression introduced by 3! the fix for PR20244. 4! 5! Contributed by Erik Edelmann <eedelman@gcc.gnu.org> 6module ModelParams 7 implicit none 8 9 type ReionizationParams 10 real :: fraction 11 end type ReionizationParams 12 13 type CAMBparams 14 type(ReionizationParams) :: Reion 15 end type CAMBparams 16 17 type(CAMBparams) CP 18end module ModelParams 19 20 21module ThermoData 22 use ModelParams 23 implicit none 24 25contains 26 27 subroutine inithermo() 28 use ModelParams 29 if (0 < CP%Reion%fraction) then 30 end if 31 end subroutine inithermo 32 33! The bug expressed itself in this subroutine because the component type 34! information was not being copied from the parent namespace. 35 subroutine SetTimeSteps 36 if (0 < CP%Reion%fraction) then 37 end if 38 end subroutine SetTimeSteps 39 40end module ThermoData 41