! { dg-do compile } | |
! { dg-options "-fdump-tree-original" } | |
! | |
! Test the fix for PR96624 in which an attempt was made to assign | |
! to the zero length temporary created by reshape, resulting in a segfault. | |
! | |
! Contributed by Dong Shenpo <shenpo.dong@compiler-dev.com> | |
! | |
program test | |
integer :: a(2,0) | |
a = reshape([1,2,3,4], [2,0]) | |
print *, a | |
end | |
! { dg-final { scan-tree-dump-times "data" 4 "original" } } |