gcc/testsuite/gfortran.dg/coarray_allocate_6.f08

   1 ! { dg-do run }
   2 ! { dg-options "-fcoarray=single -fdump-tree-original" }
   3
   4 ! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
   5 ! Test fix for pr65795.
   6
   7 implicit none
   8
   9 type t2
  10   integer, allocatable :: x
  11 end type t2
  12
  13 type t3
  14   type(t2), allocatable :: caf[:]
  15 end type t3
  16
  17 !type(t3), save, target :: c, d
  18 type(t3), target :: c, d
  19 integer :: stat
  20
  21 allocate(c%caf[*], stat=stat)
  22 end
  23
  24 ! Besides checking that the executable does not crash anymore, check
  25 ! that the cause has been remove.
  26 ! { dg-final { scan-tree-dump-not "c.caf.x = 0B" "original" } }
  27