gcc/testsuite/gfortran.dg/real_index_1.f90

   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