obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

verified gcc-4.6.4.tar.bz2.sig;
imported gcc-4.6.4 source tree from verified upstream tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.

1 files changed, 40 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.dg/used_types_4.f90 b/gcc/testsuite/gfortran.dg/used_types_4.f90
new file mode 100644
index 000000000..a08fd0f73
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/used_types_4.f90
@@ -0,0 +1,40 @@
+! { dg-do compile }

+! Tests the fix for PR28788, a regression in which an ICE was caused

+! by the failure of derived type association for the arguments of

+! InitRECFAST because the formal namespace derived types references

+! were not being reassociated to the module.

+!

+! Contributed by Martin Reinecke  <martin@mpa-garching.mpg.de>  

+! 

+module Precision

+  integer, parameter :: dl = KIND(1.d0)

+end module Precision

+

+module ModelParams

+  use precision

+  type CAMBparams

+    real(dl)::omegab,h0,tcmb,yhe

+  end type

+  type (CAMBparams) :: CP

+contains

+  subroutine CAMBParams_Set(P)

+    type(CAMBparams), intent(in) :: P

+  end subroutine CAMBParams_Set

+end module ModelParams

+

+module TimeSteps

+  use precision

+  use ModelParams

+end module TimeSteps

+

+module ThermoData

+  use TimeSteps

+contains

+  subroutine inithermo(taumin,taumax)

+    use precision

+    use ModelParams  ! Would ICE here

+    real(dl) taumin,taumax

+    call InitRECFAST(CP%omegab,CP%h0,CP%tcmb,CP%yhe)

+  end subroutine inithermo

+end module ThermoData

+! { dg-final { cleanup-modules "PRECISION ModelParams TimeSteps ThermoData" } }