diff options
| author | Sa Liu <saliu@gcc.gnu.org> | 2008-05-15 12:49:16 +0000 |
|---|---|---|
| committer | Sa Liu <saliu@gcc.gnu.org> | 2008-05-15 12:49:16 +0000 |
| commit | ec9231857bb739c9facebaeb52f9cacb4116a6d1 (patch) | |
| tree | 55b78473820818b9142bad73eeb2b0294337db9f | |
| parent | 521914528dd5d39f613f92648bac94b12a56737a (diff) | |
| download | gcc-ec9231857bb739c9facebaeb52f9cacb4116a6d1.zip gcc-ec9231857bb739c9facebaeb52f9cacb4116a6d1.tar.gz gcc-ec9231857bb739c9facebaeb52f9cacb4116a6d1.tar.bz2 | |
Add new parameter to NAMED_INTCST and new field standard to struct intmod_sym.
From-SVN: r135340
| -rw-r--r-- | gcc/fortran/module.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/fortran/module.c b/gcc/fortran/module.c index ef2faf7..f3c5316 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 |