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

 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.
 

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;