gcc/testsuite/gfortran.dg/whole_file_15.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fwhole-file" }
   3 ! Test the fix for PR43450 in which the use of 'replica_env_type'
   4 ! caused an ICE in ep_types
   5 !
   6 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   7 !
   8 MODULE replica_types
   9   TYPE replica_env_type
  10   END TYPE replica_env_type
  11 CONTAINS
  12   SUBROUTINE rep_env_create(rep_env, para_env, input, nrep, prep,&
  13        sync_v,keep_wf_history,row_force)
  14   END SUBROUTINE rep_env_create
  15   SUBROUTINE rep_envs_add_rep_env(rep_env)
  16     TYPE(replica_env_type), POINTER          :: rep_env
  17   END SUBROUTINE rep_envs_add_rep_env
  18 END MODULE replica_types
  19 MODULE ep_types
  20   USE replica_types
  21   TYPE ep_env_type
  22      TYPE(replica_env_type), POINTER :: mol_envs
  23   END TYPE ep_env_type
  24   TYPE ep_env_p_type
  25      TYPE(ep_env_type), POINTER :: ep_env
  26   END TYPE ep_env_p_type
  27   TYPE(ep_env_p_type), DIMENSION(:), POINTER :: ep_envs
  28 CONTAINS
  29   SUBROUTINE ep_force_release()
  30   END SUBROUTINE ep_force_release
  31 END MODULE ep_types
  32 ! { dg-final { cleanup-modules "replica_types ep_types" } }