gcc/testsuite/gfortran.dg/array_constructor_39.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/44354
   4 ! array constructors were giving unexpected results when the ac-implied-do
   5 ! variable was used in one of the ac-implied-do bounds.
   6 !
   7 ! Original testcase by Vittorio Zecca <zeccav@gmail.com>
   8 !
   9       I=5
  10       if (any((/(i,i=1,I)/) /= (/1,2,3,4,5/))) call abort ! { dg-warning "final expression references control variable" }
  11       if (I /= 5) call abort
  12       end
  13