diff options
| author | Sa Liu <saliu@gcc.gnu.org> | 2008-05-15 12:53:12 +0000 |
|---|---|---|
| committer | Sa Liu <saliu@gcc.gnu.org> | 2008-05-15 12:53:12 +0000 |
| commit | 21684705d1d39bd73ca9afe04acb82264ff65b39 (patch) | |
| tree | 1605fccfe45931c17db71f52d046d884bfcfaf48 | |
| parent | 05e73743d5c48509ad97d996e0c5ad07d30edef7 (diff) | |
| download | gcc-21684705d1d39bd73ca9afe04acb82264ff65b39.zip gcc-21684705d1d39bd73ca9afe04acb82264ff65b39.tar.gz gcc-21684705d1d39bd73ca9afe04acb82264ff65b39.tar.bz2 | |
Add new parameter to NAMED_INTCST.
From-SVN: r135342
| -rw-r--r-- | gcc/fortran/trans-types.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 6e98db7..7a735e0 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -219,7 +219,7 @@ void init_c_interop_kinds (void) c_interop_kinds_table[i].f90_type = BT_UNKNOWN; } -#define NAMED_INTCST(a,b,c) \ +#define NAMED_INTCST(a,b,c,d) \ strncpy (c_interop_kinds_table[a].name, b, strlen(b) + 1); \ c_interop_kinds_table[a].f90_type = BT_INTEGER; \ c_interop_kinds_table[a].value = c; |