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!
8MODULE replica_types
9  TYPE replica_env_type
10  END TYPE replica_env_type
11CONTAINS
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
18END MODULE replica_types
19MODULE 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
28CONTAINS
29  SUBROUTINE ep_force_release()
30  END SUBROUTINE ep_force_release
31END MODULE ep_types
32