2 ! Tests the fix for PR25532, which was a regression introduced by
5 ! Contributed by Erik Edelmann <eedelman@gcc.gnu.org>
9 type ReionizationParams
11 end type ReionizationParams
14 type(ReionizationParams
) :: Reion
18 end module ModelParams
27 subroutine inithermo()
29 if (0 < CP
%Reion
%fraction
) then
31 end subroutine inithermo
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
38 end subroutine SetTimeSteps
42 ! { dg-final { cleanup-modules "ModelParams ThermoData" } }