gcc/testsuite/gfortran.dg/used_types_4.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR28788, a regression in which an ICE was caused
   3 ! by the failure of derived type association for the arguments of
   4 ! InitRECFAST because the formal namespace derived types references
   5 ! were not being reassociated to the module.
   6 !
   7 ! Contributed by Martin Reinecke  <martin@mpa-garching.mpg.de>
   8 !
   9 module Precision
  10   integer, parameter :: dl = KIND(1.d0)
  11 end module Precision
  12
  13 module ModelParams
  14   use precision
  15   type CAMBparams
  16     real(dl)::omegab,h0,tcmb,yhe
  17   end type
  18   type (CAMBparams) :: CP
  19 contains
  20   subroutine CAMBParams_Set(P)
  21     type(CAMBparams), intent(in) :: P
  22   end subroutine CAMBParams_Set
  23 end module ModelParams
  24
  25 module TimeSteps
  26   use precision
  27   use ModelParams
  28 end module TimeSteps
  29
  30 module ThermoData
  31   use TimeSteps
  32 contains
  33   subroutine inithermo(taumin,taumax)
  34     use precision
  35     use ModelParams  ! Would ICE here
  36     real(dl) taumin,taumax
  37     call InitRECFAST(CP%omegab,CP%h0,CP%tcmb,CP%yhe)
  38   end subroutine inithermo
  39 end module ThermoData