2 ! { dg-options "-std=f95" }
5 ! array constructors were giving unexpected results when the ac-implied-do
6 ! variable was used in one of the ac-implied-do bounds.
8 ! Original testcase by Vittorio Zecca <zeccav@gmail.com>
11 print *,(/(i
,i
=I
,8)/) ! { dg-error "initial expression references control variable" }
12 print *,(/(i
,i
=1,I
)/) ! { dg-error "final expression references control variable" }
13 print *,(/(i
,i
=1,50,I
)/) ! { dg-error "step expression references control variable" }
