2 ! Test the fix for PR43450 in which the use of 'replica_env_type'
3 ! caused an ICE in ep_types
5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
9 END TYPE replica_env_type
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
21 TYPE(replica_env_type
), POINTER :: mol_envs
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
28 SUBROUTINE ep_force_release()
29 END SUBROUTINE ep_force_release