gcc/testsuite/gfortran.dg/whole_file_15.f90

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