gcc/testsuite/gfortran.dg/array_3.f90

   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]))
  13 end