From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <gcc-bugzilla@gcc.gnu.org>
Received: by sourceware.org (Postfix, from userid 48)
 id 5A4203983C55; Thu, 10 Sep 2020 22:59:26 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 5A4203983C55
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org;
 s=default; t=1599778766;
 bh=5qY6o6FkF3OLVHc8wJ+8xw+rpHWuY5YQ977yNtgzjsw=;
 h=From:To:Subject:Date:In-Reply-To:References:From;
 b=yDnIVnI/zdKCBGZPaEzVkK++1z9AIO6USwu2f6zOf0a0GYp64Ow+pAo4cU396rdfa
 kW3q3HfxnoZiyHlO91ed86ZxFSu7jOEKccLpO496KJQnaVuXiDARvW2eFz7sR9tZ4K
 kfG6hhp8gx572d6fMfQPgCGqkUxI78jOL20MFbRI=
From: "bergner at gcc dot gnu.org" <gcc-bugzilla@gcc.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 22:59:26 +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: bergner 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: <bug-96983-4-piYbdT43Xw@http.gcc.gnu.org/bugzilla/>
In-Reply-To: <bug-96983-4@http.gcc.gnu.org/bugzilla/>
References: <bug-96983-4@http.gcc.gnu.org/bugzilla/>
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 <gcc-bugs.gcc.gnu.org>
List-Unsubscribe: <https://gcc.gnu.org/mailman/options/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <https://gcc.gnu.org/pipermail/gcc-bugs/>
List-Post: <mailto:gcc-bugs@gcc.gnu.org>
List-Help: <mailto:gcc-bugs-request@gcc.gnu.org?subject=help>
List-Subscribe: <https://gcc.gnu.org/mailman/listinfo/gcc-bugs>,
 <mailto:gcc-bugs-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Thu, 10 Sep 2020 22:59:26 -0000

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=3D96983

--- Comment #15 from Peter Bergner <bergner at gcc dot gnu.org> ---
On POWER, we see with an unpatched compiler, where long double =3D=3D IBM d=
ouble
double format:

(gdb) p gfc_float128_type_node
$16 =3D (tree) 0x0

(gdb) p gfc_real_kinds[0]
$17 =3D {epsilon =3D {{_mpfr_prec =3D 24, _mpfr_sign =3D 1, _mpfr_exp =3D -=
22, _mpfr_d =3D
0x134f99d8}}, huge =3D {{_mpfr_prec =3D 24, _mpfr_sign =3D 1,=20
      _mpfr_exp =3D 128, _mpfr_d =3D 0x134f9978}}, tiny =3D {{_mpfr_prec =
=3D 24,
_mpfr_sign =3D 1, _mpfr_exp =3D -125, _mpfr_d =3D 0x134f9998}},=20
  subnormal =3D {{_mpfr_prec =3D 24, _mpfr_sign =3D 1, _mpfr_exp =3D -148, =
_mpfr_d =3D
0x134f99b8}}, kind =3D 4, radix =3D 2, digits =3D 24,=20
  min_exponent =3D -125, max_exponent =3D 128, range =3D 37, precision =3D =
6,
mode_precision =3D 32, c_float =3D 1, c_double =3D 0,=20
  c_long_double =3D 0, c_float128 =3D 0}

(gdb) p gfc_real_kinds[1]
$18 =3D {epsilon =3D {{_mpfr_prec =3D 53, _mpfr_sign =3D 1, _mpfr_exp =3D -=
51, _mpfr_d =3D
0x134f9a58}}, huge =3D {{_mpfr_prec =3D 53, _mpfr_sign =3D 1,=20
      _mpfr_exp =3D 1024, _mpfr_d =3D 0x134f9a18}}, tiny =3D {{_mpfr_prec =
=3D 53,
_mpfr_sign =3D 1, _mpfr_exp =3D -1021, _mpfr_d =3D 0x134f99f8}},=20
  subnormal =3D {{_mpfr_prec =3D 53, _mpfr_sign =3D 1, _mpfr_exp =3D -1073,=
 _mpfr_d =3D
0x134f9a38}}, kind =3D 8, radix =3D 2, digits =3D 53,=20
  min_exponent =3D -1021, max_exponent =3D 1024, range =3D 307, precision =
=3D 15,
mode_precision =3D 64, c_float =3D 0, c_double =3D 1,=20
  c_long_double =3D 0, c_float128 =3D 0}

(gdb) p gfc_real_kinds[2]
$19 =3D {epsilon =3D {{_mpfr_prec =3D 106, _mpfr_sign =3D 1, _mpfr_exp =3D =
-104, _mpfr_d
=3D 0x134f9ad8}}, huge =3D {{_mpfr_prec =3D 106,=20
      _mpfr_sign =3D 1, _mpfr_exp =3D 1023, _mpfr_d =3D 0x134f9a98}}, tiny =
=3D
{{_mpfr_prec =3D 106, _mpfr_sign =3D 1, _mpfr_exp =3D -968,=20
      _mpfr_d =3D 0x134f9a78}}, subnormal =3D {{_mpfr_prec =3D 106, _mpfr_s=
ign =3D 1,
_mpfr_exp =3D -1073, _mpfr_d =3D 0x134f9ab8}}, kind =3D 16,=20
  radix =3D 2, digits =3D 106, min_exponent =3D -968, max_exponent =3D 1023=
, range =3D
291, precision =3D 31, mode_precision =3D 127, c_float =3D 0,=20
  c_double =3D 0, c_long_double =3D 1, c_float128 =3D 0}=