Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/whole_file_15.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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 !
8 MODULE replica_types
9 TYPE replica_env_type
10 END TYPE replica_env_type
11 CONTAINS
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
19 MODULE 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
28 CONTAINS
29 SUBROUTINE ep_force_release()
30 END SUBROUTINE ep_force_release
31 END MODULE ep_types