From: Francois-Xavier Coudert <coudert@clipper.ens.fr>
Date: Wed, 10 May 2006 14:58:48 +0000 (+0200)
Subject: re PR fortran/20460 (Nasty extensions that should always warn)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=7fdf6c6980312969655e4c7e90eaba31ec53d16f;p=gcc.git

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 05b55314f84..32cadb2f52c 100644
--- 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 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;