From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 48) id 66DAF3850428; Thu, 10 Sep 2020 17:29:59 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 66DAF3850428 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1599758999; bh=b2siyjOoaCvXzdjHj6wJAhaRWVSKeCbvyrBhtil2NPA=; h=From:To:Subject:Date:In-Reply-To:References:From; b=WgoJ4lRWyAFsjuRWBybW3xYyyZGT9BaMIs0sbDr4SD9C1zc79ulL5fgzQhj9vIReh /M/UVzAfIAN5uGml9B5asbTAReGjF6CLx5i4wkBdmcM75tkZa7i7zCfYj+j1g2aM3u 12jfEmgHWmFlmoVYr2UKbaiX+Lz0/4YLUVoRK0rg= From: "anlauf at gcc dot gnu.org" To: gcc-bugs@gcc.gnu.org Subject: [Bug fortran/96983] [11 regression] ICE compiling gfortran.dg/pr96711.f90 starting with r11-3042 Date: Thu, 10 Sep 2020 17:29:59 +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: 11.0 X-Bugzilla-Keywords: X-Bugzilla-Severity: normal X-Bugzilla-Who: anlauf at gcc dot gnu.org X-Bugzilla-Status: UNCONFIRMED X-Bugzilla-Resolution: X-Bugzilla-Priority: P3 X-Bugzilla-Assigned-To: unassigned at gcc dot gnu.org X-Bugzilla-Target-Milestone: 11.0 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 X-BeenThere: gcc-bugs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-bugs mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Thu, 10 Sep 2020 17:29:59 -0000 https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D96983 --- Comment #13 from anlauf at gcc dot gnu.org --- (In reply to ro@CeBiTec.Uni-Bielefeld.DE from comment #12) > Here's how the types align: >=20 > kind mode_precision c_long_double c_float128 > x86 long double 10 80 1 0 > x86 __float128 16 128 0 1 > sparc long double 16 128 1 0 This may lead to a total mess, and I am unable to test it, but can you try: diff --git a/gcc/fortran/trans-types.c b/gcc/fortran/trans-types.c index 26fdb2803a7..4d5de9066af 100644 --- a/gcc/fortran/trans-types.c +++ b/gcc/fortran/trans-types.c @@ -844,7 +844,14 @@ gfc_build_real_type (gfc_real_info *info) if (mode_precision =3D=3D DOUBLE_TYPE_SIZE) info->c_double =3D 1; if (mode_precision =3D=3D LONG_DOUBLE_TYPE_SIZE) - info->c_long_double =3D 1; + { + info->c_long_double =3D 1; + if (mode_precision =3D=3D 128) + { + info->c_float128 =3D 1; + gfc_real16_is_float128 =3D true; + } + } if (mode_precision !=3D LONG_DOUBLE_TYPE_SIZE && mode_precision =3D=3D 1= 28) { info->c_float128 =3D 1; It's likely to screw up power completely, but I don't have any feedback from them.=