| ! { dg-do run } |
| ! { dg-options "-fcoarray=single -fdump-tree-original" } |
| |
| ! Contributed by Tobias Burnus <burnus@gcc.gnu.org> |
| ! Test fix for pr65795. |
| |
| implicit none |
| |
| type t2 |
| integer, allocatable :: x |
| end type t2 |
| |
| type t3 |
| type(t2), allocatable :: caf[:] |
| end type t3 |
| |
| !type(t3), save, target :: c, d |
| type(t3), target :: c, d |
| integer :: stat |
| |
| allocate(c%caf[*], stat=stat) |
| end |
| |
| ! Besides checking that the executable does not crash anymore, check |
| ! that the cause has been remove. |
| ! { dg-final { scan-tree-dump-not "c.caf.x = 0B" "original" } } |
| |
