From b06464c7fb06a049e5d0d2bec4e37282c5ecca8c Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sat, 1 Apr 2023 10:20:32 +0200 Subject: [PATCH] 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". --- gcc/fortran/dump-parse-tree.cc | 2 ++ 1 file changed, 2 insertions(+) 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) -- 2.7.4