! { dg-do compile } | |
! PR31610 ICE with transfer, merge in gfc_conv_expr_descriptor | |
integer :: i(1) = 1 | |
integer :: foo(3) | |
integer :: n(1) | |
foo(1) = 17 | |
foo(2) = 55 | |
foo(3) = 314 | |
print *, i, foo | |
write(*,*) foo([1]), foo([1]+i), [1]+1 | |
n = foo([1]+i) | |
print *, n, shape(foo([1]+i)), shape(foo(i+[1])) | |
end |