gcc/testsuite/gfortran.dg/data_implied_do_2.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR44353
   3 !
   4 ! Contributed by Vittorio Zecca <zeccav@gmail.com>
   5 !
   6       subroutine sub(i)
   7       intent(in) i
   8       integer ii(10)
   9       data (ii(i),i=1,10) /10*0/ ! failed here
  10       end