diff options
| author | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-13 18:46:36 +0000 |
|---|---|---|
| committer | tobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-13 18:46:36 +0000 |
| commit | ae634447a84b4a256cf8191134309d1773732b27 (patch) | |
| tree | 3f11461daa267e7e0afe1b9b2ddb5b164fc7f4a3 /gcc/testsuite/gfortran.dg/real_index_1.f90 | |
| parent | e143e9e2633171a079651c35e3a7f04bdb348285 (diff) | |
| download | gcc-ae634447a84b4a256cf8191134309d1773732b27.tar.gz | |
fortran/
PR fortran/16907
* resolve.c (gfc_resolve_index): Allow REAL indices as an extension.
testsuite/
PR fortran/16907
* gfortran.dg/real_index_1.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96385 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/real_index_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/real_index_1.f90 | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/real_index_1.f90 b/gcc/testsuite/gfortran.dg/real_index_1.f90 new file mode 100644 index 00000000000..16ceca82774 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/real_index_1.f90 @@ -0,0 +1,7 @@ +! { 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 |