From 7fdf6c6980312969655e4c7e90eaba31ec53d16f Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Wed, 10 May 2006 16:58:48 +0200 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/resolve.c | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 05b55314f845..32cadb2f52c3 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2006-05-10 Francois-Xavier Coudert + + PR fortran/20460 + * resolve.c (gfc_resolve_index): Make REAL array indices a + GFC_STD_LEGACY feature. + 2006-05-10 Francois-Xavier Coudert PR fortran/24549 diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 1e57adda605d..26d4e7696007 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;