From ec9231857bb739c9facebaeb52f9cacb4116a6d1 Mon Sep 17 00:00:00 2001 From: Sa Liu Date: Thu, 15 May 2008 12:49:16 +0000 Subject: [PATCH] Add new parameter to NAMED_INTCST and new field standard to struct intmod_sym. From-SVN: r135340 --- gcc/fortran/module.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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 -- 2.30.2