Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/coarray_42.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do run } ! { dg-options "-fdump-tree-original -fcoarray=lib -lcaf_single" } ! { dg-additional-options "-latomic" { target libatomic_available } } program Jac type Domain integer :: n=64 integer,allocatable :: endsi(:) end type type(Domain),allocatable :: D[:,:,:] allocate(D[2,2,*]) allocate(D%endsi(2), source = 0) ! Lhs may be reallocate, so caf_send_by_ref needs to be used. D%endsi = D%n if (any(D%endsi /= [ 64, 64])) error stop deallocate(D) end program ! { dg-final { scan-tree-dump-times "caf_send_by_ref" 1 "original" } }