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 | |
| 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
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 05b5531..32cadb2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 2006-05-10 Francois-Xavier Coudert <coudert@clipper.ens.fr> + PR fortran/20460 + * resolve.c (gfc_resolve_index): Make REAL array indices a + GFC_STD_LEGACY feature. + +2006-05-10 Francois-Xavier Coudert <coudert@clipper.ens.fr> + PR fortran/24549 * parse.c (reject_statement): Clear gfc_new_block. 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; |