From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <sgk@troutmask.apl.washington.edu>
Received: from troutmask.apl.washington.edu (troutmask.apl.washington.edu
 [128.95.76.21])
 by sourceware.org (Postfix) with ESMTPS id 018503858D39
 for <fortran@gcc.gnu.org>; Tue, 25 Jan 2022 02:48:12 +0000 (GMT)
DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 018503858D39
Received: from troutmask.apl.washington.edu (localhost [127.0.0.1])
 by troutmask.apl.washington.edu (8.16.1/8.16.1) with ESMTPS id 20P2mBIW023201
 (version=TLSv1.3 cipher=TLS_AES_256_GCM_SHA384 bits=256 verify=NO);
 Mon, 24 Jan 2022 18:48:11 -0800 (PST)
 (envelope-from sgk@troutmask.apl.washington.edu)
Received: (from sgk@localhost)
 by troutmask.apl.washington.edu (8.16.1/8.16.1/Submit) id 20P2mBlT023200;
 Mon, 24 Jan 2022 18:48:11 -0800 (PST) (envelope-from sgk)
Date: Mon, 24 Jan 2022 18:48:11 -0800
From: Steve Kargl <sgk@troutmask.apl.washington.edu>
To: fortran@gcc.gnu.org, fxcoudert@gmail.com
Subject: Re: New signaling NaN causes 12 testsuite failures
Message-ID: <20220125024811.GA19308@troutmask.apl.washington.edu>
References: <20220125004453.GA16729@troutmask.apl.washington.edu>
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Disposition: inline
In-Reply-To: <20220125004453.GA16729@troutmask.apl.washington.edu>
X-Spam-Status: No, score=-1.8 required=5.0 tests=BAYES_00, KAM_DMARC_STATUS,
 KAM_LAZY_DOMAIN_SECURITY, SPF_HELO_NONE, SPF_NONE,
 TXREP autolearn=no autolearn_force=no version=3.4.4
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on
 server2.sourceware.org
X-BeenThere: fortran@gcc.gnu.org
X-Mailman-Version: 2.1.29
Precedence: list
List-Id: Fortran mailing list <fortran.gcc.gnu.org>
List-Unsubscribe: <https://gcc.gnu.org/mailman/options/fortran>,
 <mailto:fortran-request@gcc.gnu.org?subject=unsubscribe>
List-Archive: <https://gcc.gnu.org/pipermail/fortran/>
List-Help: <mailto:fortran-request@gcc.gnu.org?subject=help>
List-Subscribe: <https://gcc.gnu.org/mailman/listinfo/fortran>,
 <mailto:fortran-request@gcc.gnu.org?subject=subscribe>
X-List-Received-Date: Tue, 25 Jan 2022 02:48:14 -0000

On Mon, Jan 24, 2022 at 04:44:53PM -0800, Steve Kargl wrote:
> % gmake check-fortran  RUNTESTFLAGS="ieee.exp=sign\*"
> 

Line 42 of signal_1.f90 looks wrong unless the
line is testing conversion on assignment.  Should
y be x?

Instrumented signal_1.f90.

Changed

    if (ieee_class(z) /= ieee_signaling_nan) stop 300

to

    if (ieee_class(z) /= ieee_signaling_nan) then
        print '(G0,1X,Z0)', z, z
        z = ieee_value(z, ieee_quiet_nan)
        print '(G0,1X,Z0)', z, z
        z = ieee_value(z, ieee_signaling_nan)
        print '(G0,1X,Z0)', z, z
!       stop 300
    end if


Got the following in testsuite/gfortran/gfortran.log

NaN 7FFFA000000000000000
NaN 7FFFC000000000000000
NaN 7FFFA000000000000000

and with "stop 300" commented out everything passes.  Now to
chase down hex representations for sNaN and qNaN.  Suspect
ieee_class() is broken.
-- 
Steve