------- 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