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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 05b55314f84554a3eb16939742b7735cf457a86a..32cadb2f52c3dddf330d09971f65a56ebcac5696 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 1e57adda605d17e1747bc4e5b7bc37b49ffc70b2..26d4e76960076b9d1979d05b431e681d887627f8 100644 (file)
--- 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;