From: Sa Liu <saliu@gcc.gnu.org>
Date: Thu, 15 May 2008 12:49:16 +0000 (+0000)
Subject: Add new parameter to NAMED_INTCST and new field standard to struct intmod_sym.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ec9231857bb739c9facebaeb52f9cacb4116a6d1;p=gcc.git

Add new parameter to NAMED_INTCST and new field standard to struct intmod_sym.

From-SVN: r135340
---

diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c
index ef2faf7c882..f3c5316d05c 100644
--- a/gcc/fortran/module.c
+++ b/gcc/fortran/module.c
@@ -91,6 +91,7 @@ typedef struct
   int id;
   const char *name;
   int value;
+  int standard;
 }
 intmod_sym;
 
@@ -4771,13 +4772,13 @@ use_iso_fortran_env_module (void)
   int i;
 
   intmod_sym symbol[] = {
-#define NAMED_INTCST(a,b,c) { a, b, 0 },
+#define NAMED_INTCST(a,b,c,d) { a, b, 0, d },
 #include "iso-fortran-env.def"
 #undef NAMED_INTCST
-    { ISOFORTRANENV_INVALID, NULL, -1234 } };
+    { ISOFORTRANENV_INVALID, NULL, -1234, 0 } };
 
   i = 0;
-#define NAMED_INTCST(a,b,c) symbol[i++].value = c;
+#define NAMED_INTCST(a,b,c,d) symbol[i++].value = c;
 #include "iso-fortran-env.def"
 #undef NAMED_INTCST