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, 32 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.dg/whole_file_15.f90 b/gcc/testsuite/gfortran.dg/whole_file_15.f90
new file mode 100644
index 000000000..08d612044
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/whole_file_15.f90
@@ -0,0 +1,32 @@
+! { dg-do compile }
+! { dg-options "-fwhole-file" }
+! Test the fix for PR43450 in which the use of 'replica_env_type'
+! caused an ICE in ep_types
+!
+! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
+!
+MODULE replica_types
+  TYPE replica_env_type
+  END TYPE replica_env_type
+CONTAINS
+  SUBROUTINE rep_env_create(rep_env, para_env, input, nrep, prep,&
+       sync_v,keep_wf_history,row_force)
+  END SUBROUTINE rep_env_create
+  SUBROUTINE rep_envs_add_rep_env(rep_env)
+    TYPE(replica_env_type), POINTER          :: rep_env
+  END SUBROUTINE rep_envs_add_rep_env
+END MODULE replica_types
+MODULE ep_types
+  USE replica_types
+  TYPE ep_env_type
+     TYPE(replica_env_type), POINTER :: mol_envs
+  END TYPE ep_env_type
+  TYPE ep_env_p_type
+     TYPE(ep_env_type), POINTER :: ep_env
+  END TYPE ep_env_p_type
+  TYPE(ep_env_p_type), DIMENSION(:), POINTER :: ep_envs
+CONTAINS
+  SUBROUTINE ep_force_release()
+  END SUBROUTINE ep_force_release
+END MODULE ep_types
+! { dg-final { cleanup-modules "replica_types ep_types" } }