From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 48) id 2C60B3858D3C; Wed, 29 Mar 2023 21:30:59 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 2C60B3858D3C DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1680125459; bh=DKy1PgNTfLgwGoJz2k7kDgEFFYt/Bch1ikz+F/CyOV4=; h=From:To:Subject:Date:In-Reply-To:References:From; b=ggRN0HhIFhY0pSCPWBvnOlGRJDePu7RRrhtK/tXS1R2l4Ee6ImtAkqZ6OCoG6aEKu kz/GmfeWOG3CVbo8ZDS9cNEvhrQPeZEyw1F11snS/1HpQuz/aaktvODwq1EAYntrkZ pgrcryap0aM2WGVPvJstN0Hfj2U62A6Sqrh+ZtZs= From: "pinskia at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/109322] -fc-prototypes does not correctly translate INTEGER(KIND=C_SIZE_T), and other sizes Date: Wed, 29 Mar 2023 21:30:58 +0000 X-Bugzilla-Reason: CC X-Bugzilla-Type: changed X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: fortran X-Bugzilla-Version: 12.2.0 X-Bugzilla-Keywords: X-Bugzilla-Severity: enhancement X-Bugzilla-Who: pinskia at gcc dot gnu.org X-Bugzilla-Status: WAITING X-Bugzilla-Resolution: X-Bugzilla-Priority: P5 X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org X-Bugzilla-Target-Milestone: --- X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: Message-ID: In-Reply-To: References: Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated MIME-Version: 1.0 List-Id: https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D109322 --- Comment #6 from Andrew Pinski --- diff --git a/gcc/fortran/dump-parse-tree.cc b/gcc/fortran/dump-parse-tree.cc index 3b24bdc1a6c..7869130ac2b 100644 --- a/gcc/fortran/dump-parse-tree.cc +++ b/gcc/fortran/dump-parse-tree.cc @@ -3697,6 +3697,8 @@ get_c_type_name (gfc_typespec *ts, gfc_array_spec *as, const char **pre, && c_interop_kinds_table[i].value =3D=3D ts->kind) { *type_name =3D c_interop_kinds_table[i].name + 2; + if (strcmp (*type_name, "long_long") =3D=3D 0) + *type_name =3D "long long"; if (strcmp (*type_name, "signed_char") =3D=3D 0) *type_name =3D "signed char"; else if (strcmp (*type_name, "size_t") =3D=3D 0)=