From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Sat, 1 Apr 2023 08:20:32 +0000 (+0200)
Subject: Change "long_double" into "long double" for C prototypes from Fortran.
X-Git-Tag: basepoints/gcc-14~238
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=b06464c7fb06a049e5d0d2bec4e37282c5ecca8c;p=thirdparty%2Fgcc.git

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".
---

diff --git a/gcc/fortran/dump-parse-tree.cc b/gcc/fortran/dump-parse-tree.cc
index f4490da6a198..1fc1f311e84d 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)