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
6 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
10 END TYPE replica_env_type
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
22 TYPE(replica_env_type
), POINTER :: mol_envs
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
29 SUBROUTINE ep_force_release()
30 END SUBROUTINE ep_force_release
32 ! { dg-final { cleanup-modules "replica_types ep_types" } }