diff options
| -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; |