Update ChangeLog and version files for release
[official-gcc.git] / gcc / testsuite / gfortran.dg / real_index_1.f90
blob16ceca827748891ea52761a58d1d6b4f089c7816
1 ! { dg-do run }
2 ! PR 16907 : We didn't support REAL array indices as an extension
3 integer I, A(10)
4 A = 2
5 I=A(1.0) ! { dg-warning "Extension" }
6 if (i/=2) call abort ()
7 end