diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2006-05-10 16:58:48 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2006-05-10 14:58:48 +0000 |
| commit | 7fdf6c6980312969655e4c7e90eaba31ec53d16f (patch) | |
| tree | 1dd6bbd6fcb57738dce16e2f72c194fae78cd411 /gcc/fortran/resolve.c | |
| parent | 8e785b78e82d299c1fae5815833f3a4e74d8b728 (diff) | |
| download | gcc-7fdf6c6980312969655e4c7e90eaba31ec53d16f.zip gcc-7fdf6c6980312969655e4c7e90eaba31ec53d16f.tar.gz gcc-7fdf6c6980312969655e4c7e90eaba31ec53d16f.tar.bz2 | |
re PR fortran/20460 (Nasty extensions that should always warn)
PR fortran/20460
* resolve.c (gfc_resolve_index): Make REAL array indices a
GFC_STD_LEGACY feature.
From-SVN: r113672
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 1e57add..26d4e76 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -2170,7 +2170,7 @@ gfc_resolve_index (gfc_expr * index, int check_scalar) } if (index->ts.type == BT_REAL) - if (gfc_notify_std (GFC_STD_GNU, "Extension: REAL array index at %L", + if (gfc_notify_std (GFC_STD_LEGACY, "Extension: REAL array index at %L", &index->where) == FAILURE) return FAILURE; |