Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
real_index_1.f90
blob: 5a144fd8501aabd85610b96e8a7c66f5fc47c7ec [
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) STOP 1
end