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 7implicit none 8 9type t2 10 integer, allocatable :: x 11end type t2 12 13type t3 14 type(t2), allocatable :: caf[:] 15end type t3 16 17!type(t3), save, target :: c, d 18type(t3), target :: c, d 19integer :: stat 20 21allocate(c%caf[*], stat=stat) 22end 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 28