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 8