gcc/testsuite/gfortran.dg/coarray/poly_run_3.f90

   1 ! { dg-do run }
   2 !
   3 ! Check that the bounds of polymorphic coarrays is
   4 ! properly handled.
   5 !
   6 type t
   7 end type t
   8 class(t), allocatable :: a(:)[:]
   9 class(t), allocatable :: b[:], d[:]
  10
  11 allocate(a(1)[*])
  12 if (this_image() == 1 .and. any (this_image(a) /= lcobound(a))) &
  13   STOP 1
  14 if (any (lcobound(a) /= 1)) STOP 2
  15 if (any (ucobound(a) /= this_image())) STOP 3
  16 deallocate(a)
  17
  18 allocate(b[*])
  19 if (this_image() == 1 .and. any (this_image(b) /= lcobound(b))) &
  20   STOP 4
  21 if (any (lcobound(b) /= 1)) STOP 5
  22 if (any (ucobound(b) /= this_image())) STOP 6
  23 deallocate(b)
  24
  25 allocate(a(1)[-10:*])
  26 if (this_image() == 1 .and. any (this_image(a) /= lcobound(a))) &
  27   STOP 7
  28 if (any (lcobound(a) /= -10)) STOP 8
  29 if (any (ucobound(a) /= -11+this_image())) STOP 9
  30 deallocate(a)
  31
  32 allocate(d[23:*])
  33 if (this_image() == 1 .and. any (this_image(d) /= lcobound(d))) &
  34   STOP 10
  35 if (any (lcobound(d) /= 23)) STOP 11
  36 if (any (ucobound(d) /= 22+this_image())) STOP 12
  37 deallocate(d)
  38
  39 end