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