gcc/testsuite/gfortran.dg/vector_subscript_4.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdump-tree-original" }
   3 !
   4 ! Test the fix for PR37903, in which the temporary for the vector index
   5 ! got the wrong size.
   6 !
   7 ! Contributed by Mikael Morin <mikael.morin@tele2.fr>
   8 !
   9      integer :: i(-1:1) = 1, j(3) = 1, k(3)
  10       k = j((/1,1,1/)+i)
  11       end
  12 ! { dg-final { scan-tree-dump-times "A\.2\\\[3\\\]" 1 "original" } }
  13 ! { dg-final { cleanup-tree-dump "original" } }