Make REAL array indices a GFC_STD_LEGACY feature

[François-Xavier Coudert]

Hi all,

I propose to make real-type array indices a GFC_STD_LEGACY feature,
instead of GFC_STD_GNU, with the patch below. Does someone has
objections about that?

Thanks,
FX



Index: resolve.c
===================================================================
--- resolve.c   (revision 113549)
+++ resolve.c   (working copy)
@@ -2170,7 +2170,7 @@
     }

   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;