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