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