Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/coarray_45.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
111:04ced10e8804 | 131:84e7813d76e9 |
---|---|
1 ! { dg-do compile } | |
2 ! { dg-options "-fcoarray=lib -lcaf_single " } | |
3 ! | |
4 ! Test the fix for PR83076 | |
5 ! | |
6 module m | |
7 type t | |
8 integer, pointer :: z | |
9 end type | |
10 type(t) :: ptr | |
11 contains | |
12 function g(x) | |
13 type(t) :: x[*] | |
14 if (associated (x%z, ptr%z)) deallocate (x%z) ! This used to ICE with -fcoarray=lib | |
15 end | |
16 end module | |
17 | |
18 use m | |
19 contains | |
20 function f(x) | |
21 type(t) :: x[*] | |
22 if (associated (x%z, ptr%z)) deallocate (x%z) | |
23 end | |
24 end |