diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-10 14:58:48 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-05-10 14:58:48 +0000 |
| commit | 783304dc7874143884d79c0b6f62924df2fd3f82 (patch) | |
| tree | 1dd6bbd6fcb57738dce16e2f72c194fae78cd411 | |
| parent | 508e509344c0f4a28074843945b9e2a18844c749 (diff) | |
| download | gcc-783304dc7874143884d79c0b6f62924df2fd3f82.tar.gz | |
PR fortran/20460
* resolve.c (gfc_resolve_index): Make REAL array indices a
GFC_STD_LEGACY feature.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@113672 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 05b55314f84..32cadb2f52c 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 1e57adda605..26d4e769600 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; |