diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2023-04-01 10:20:32 +0200 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2023-04-01 10:22:58 +0200 |
| commit | b06464c7fb06a049e5d0d2bec4e37282c5ecca8c (patch) | |
| tree | 03dddbe2ee1797a1ab5024be6463648817024f14 | |
| parent | 69044e11ac52e93622c3d368ae2fd9ef8c3ec015 (diff) | |
| download | gcc-b06464c7fb06a049e5d0d2bec4e37282c5ecca8c.zip gcc-b06464c7fb06a049e5d0d2bec4e37282c5ecca8c.tar.gz gcc-b06464c7fb06a049e5d0d2bec4e37282c5ecca8c.tar.bz2 | |
Change "long_double" into "long double" for C prototypes from Fortran.
gcc/fortran/ChangeLog:
* dump-parse-tree.cc (get_c_type_name): Fix "long_long"
type name to be "long long".
| -rw-r--r-- | gcc/fortran/dump-parse-tree.cc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/fortran/dump-parse-tree.cc b/gcc/fortran/dump-parse-tree.cc index f4490da..1fc1f31 100644 --- a/gcc/fortran/dump-parse-tree.cc +++ b/gcc/fortran/dump-parse-tree.cc @@ -3700,6 +3700,8 @@ get_c_type_name (gfc_typespec *ts, gfc_array_spec *as, const char **pre, *type_name = c_interop_kinds_table[i].name + 2; if (strcmp (*type_name, "long_long") == 0) *type_name = "long long"; + if (strcmp (*type_name, "long_double") == 0) + *type_name = "long double"; if (strcmp (*type_name, "signed_char") == 0) *type_name = "signed char"; else if (strcmp (*type_name, "size_t") == 0) |