gcc/testsuite/gfortran.dg/coarray_allocate_5.f08

   1 ! { dg-do run }
   2 ! { dg-options "-fcoarray=lib -lcaf_single -fdump-tree-original" }
   3 ! { dg-additional-options "-latomic" { target libatomic_available } }
   4 !
   5 ! Contributed by Ian Harvey  <ian_harvey@bigpond.com>
   6 ! Extended by Andre Vehreschild  <vehre@gcc.gnu.org>
   7 ! to test that coarray references in allocate work now
   8 ! PR fortran/67451
   9
  10   program main
  11     implicit none
  12     type foo
  13       integer :: bar = 99
  14     end type
  15     class(foo), dimension(:), allocatable :: foobar[:]
  16     class(foo), dimension(:), allocatable :: some_local_object
  17     allocate(foobar(10)[*])
  18
  19     allocate(some_local_object, source=foobar)
  20
  21     if (.not. allocated(foobar)) call abort()
  22     if (lbound(foobar, 1) /= 1 .OR. ubound(foobar, 1) /= 10) call abort()
  23     if (.not. allocated(some_local_object)) call abort()
  24     if (any(some_local_object(:)%bar /= [99, 99,  99, 99, 99, 99, 99, 99, 99, 99])) call abort()
  25
  26     deallocate(some_local_object)
  27     deallocate(foobar)
  28   end program
  29
  30 ! Check that some_local_object is treated as rank-1 array.
  31 ! This failed beforehand, because the coarray attribute of the source=expression
  32 ! was propagated to some_local_object in the allocate.
  33 ! { dg-final { scan-tree-dump-not "some_local_object\._data\.dim\[1\]\.lbound" "original" } }