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