gcc/testsuite/gfortran.dg/coarray_42.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fdump-tree-original -fcoarray=lib -lcaf_single" }
   3 ! { dg-additional-options "-latomic" { target libatomic_available } }
   4
   5 program Jac
   6   type Domain
   7     integer :: n=64
   8     integer,allocatable :: endsi(:)
   9   end type
  10   type(Domain),allocatable :: D[:,:,:]
  11
  12   allocate(D[2,2,*])
  13   allocate(D%endsi(2), source = 0)
  14   ! Lhs may be reallocate, so caf_send_by_ref needs to be used.
  15   D%endsi = D%n
  16   if (any(D%endsi /= [ 64, 64])) error stop
  17   deallocate(D)
  18 end program
  19
  20 ! { dg-final { scan-tree-dump-times "caf_send_by_ref" 1 "original" } }
  21