[Bug fortran/25532] [gfortran, regression] ICE in gfc_conv_component_ref, at fortran/trans-expr.c:269

[pault at gcc dot gnu dot org]

------- Comment #5 from pault at gcc dot gnu dot org  2005-12-27 05:53 -------
There are three different, temporary work-arounds:

(i) Remove all "use ModelParams" from the contained procedures;
(ii) Add a "use ModelParams" to subroutine SetTimeSteps; or
(iii) Change the order of the contained procedures.

In the meantime, I will sort out a solution.

Paul

> 
> ----
> 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
> 
>     subroutine SetTimeSteps
>         if (0 < CP%Reion%fraction) then
>         end if
>     end subroutine SetTimeSteps
> 
> end module ThermoData
> --------
> 


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25532