Mercurial > hg > CbC > CbC_gcc

annotate gcc/testsuite/gfortran.dg/coarray_42.f90 @ 145:1830386684a0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ! { dg-do run }
kono
parents:
diff changeset
2 ! { dg-options "-fdump-tree-original -fcoarray=lib -lcaf_single" }
kono
parents:
diff changeset
3 ! { dg-additional-options "-latomic" { target libatomic_available } }
kono
parents:
diff changeset
4
kono
parents:
diff changeset
5 program Jac
kono
parents:
diff changeset
6 type Domain
kono
parents:
diff changeset
7 integer :: n=64
kono
parents:
diff changeset
8 integer,allocatable :: endsi(:)
kono
parents:
diff changeset
9 end type
kono
parents:
diff changeset
10 type(Domain),allocatable :: D[:,:,:]
kono
parents:
diff changeset
11
kono
parents:
diff changeset
12 allocate(D[2,2,*])
kono
parents:
diff changeset
13 allocate(D%endsi(2), source = 0)
kono
parents:
diff changeset
14 ! Lhs may be reallocate, so caf_send_by_ref needs to be used.
kono
parents:
diff changeset
15 D%endsi = D%n
kono
parents:
diff changeset
16 if (any(D%endsi /= [ 64, 64])) error stop
kono
parents:
diff changeset
17 deallocate(D)
kono
parents:
diff changeset
18 end program
kono
parents:
diff changeset
19
kono
parents:
diff changeset
20 ! { dg-final { scan-tree-dump-times "caf_send_by_ref" 1 "original" } }
kono
parents:
diff changeset
21