Sign in
llvm
/
llvm-archive
/
8a078a762a98ba34ad83dc2c15e5ff2b86792d78
/
.
/
llvm-gcc-4.2
/
llvmgcc42-2326.9
/
gcc
/
testsuite
/
gfortran.dg
/
real_index_1.f90
blob: 16ceca827748891ea52761a58d1d6b4f089c7816 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR
16907
:
We
didn
't support REAL array indices as an extension
integer I, A(10)
A = 2
I=A(1.0) ! { dg-warning "Extension" }
if (i/=2) call abort ()
end