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 0BDB3385803D; Thu,  4 Nov 2021 20:45:58 +0000 (GMT)
DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 0BDB3385803D
From: "seurer at gcc dot gnu.org" <gcc-bugzilla@gcc.gnu.org>
To: gcc-bugs@gcc.gnu.org
Subject: [Bug other/103088] New: [12 regression] 500.perlbench from spec 2017
 fails since r12-4698
Date: Thu, 04 Nov 2021 20:45:57 +0000
X-Bugzilla-Reason: CC
X-Bugzilla-Type: new
X-Bugzilla-Watch-Reason: None
X-Bugzilla-Product: gcc
X-Bugzilla-Component: other
X-Bugzilla-Version: 12.0
X-Bugzilla-Keywords: 
X-Bugzilla-Severity: normal
X-Bugzilla-Who: seurer 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: ---
X-Bugzilla-Flags: 
X-Bugzilla-Changed-Fields: bug_id short_desc product version bug_status
 bug_severity priority component assigned_to reporter target_milestone
Message-ID: <bug-103088-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, 04 Nov 2021 20:45:58 -0000

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

            Bug ID: 103088
           Summary: [12 regression] 500.perlbench from spec 2017 fails
                    since r12-4698
           Product: gcc
           Version: 12.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: other
          Assignee: unassigned at gcc dot gnu.org
          Reporter: seurer at gcc dot gnu.org
  Target Milestone: ---

g:f6d012338bf87f427b7420f2f309963c29fe33ba, r12-4698

commit f6d012338bf87f427b7420f2f309963c29fe33ba (HEAD)
Author: Aldy Hernandez <aldyh@redhat.com>
Date:   Wed Oct 20 07:29:25 2021 +0200

    Try to resolve paths in threader without looking further back.


I am seeing a strange problem starting with this revision.  The spec 2017 t=
est
case 500.perlbench is producing a few extraneous lines of output which is
causing it to fail.

seurer@muskie:~/gcc/cpu2017$ diff
./benchspec/CPU/500.perlbench_r/data/refrate/output/diffmail.4.800.10.17.19=
.300.out

./benchspec/CPU/500.perlbench_r/run/run_peak_refrate_none.0000/diffmail.4.8=
00.10.17.19.300.out
3257a3258
> Minimum abstol: nan=20=20=20=20=20=20=20
3259a3261
> Minimum reltol: nan=20=20=20=20=20=20=20
3507a3510
> Minimum abstol: nan=20=20=20=20=20=20=20
3509a3513
> Minimum reltol: nan=20=20=20=20=20=20=20
3694a3699
> Minimum abstol: nan=20=20=20=20=20=20=20
3696a3702
> Minimum reltol: nan=20=20=20=20=20=20=20
3818a3825
> Minimum abstol: nan=20=20=20=20=20=20=20
3820a3828
> Minimum reltol: nan=20=20=20=20=20=20=20


These extra lines come from here in the perl code:

    if ($opts->{'calctol'}) {
        push @errstats, 'Calculated tolerances:';
        foreach my $type (qw(abstol reltol obiwan skiptol)) {
            if (exists($max->{$type}) && ($max->{$type} >=3D 0)) {
                push @errstats, sprintf "Maximum $type: %-10.5e",
$max->{$type};
            }
            if (exists($min->{$type}) && ($min->{$type} >=3D 0)) {
                push @errstats, sprintf "Minimum $type: %-10.5e",
$min->{$type};
            }
            if (exists($errcnt->{$type}) && ($errcnt->{$type} >=3D 0)) {
                push @errstats, "# of $type errors: ".$errcnt->{$type};
            }
            if (exists($opts->{"skip$type"}) && ($opts->{"skip$type"} > 0))=
 {
                push @errstats, "# of skip$type unused: ".$opts->{"skip$typ=
e"};
            }
        }
    }

So it appears that either the results of the perl exists function changed or
the values that are being checked did not exist before but do now.=