2 ! { dg-options "-Warray-temporaries" }
3 ! PR fortran/56937 - unnecessary temporaries with vector indices
5 integer, dimension(3) :: i1
, i2
8 data a
/ 1.0, 2.0, 3.0, 4.0, 5.0, 6.0 /
12 if (a(1,1) /= 6.0 .or
. a(2,1) /= 5.0 .or
. a(3,1) /= 4.0) call abort
13 if (a(1,2) /= 4.0 .or
. a(2,2) /= 5.0 .or
. a(3,2) /= 6.0) call abort