1! { dg-do compile } 2! PR31610 ICE with transfer, merge in gfc_conv_expr_descriptor 3 integer :: i(1) = 1 4 integer :: foo(3) 5 integer :: n(1) 6 foo(1) = 17 7 foo(2) = 55 8 foo(3) = 314 9 print *, i, foo 10 write(*,*) foo([1]), foo([1]+i), [1]+1 11 n = foo([1]+i) 12 print *, n, shape(foo([1]+i)), shape(foo(i+[1])) 13end 14