From e82ba180d6641a1e2bad1ac327234fc1cda658ef Mon Sep 17 00:00:00 2001 From: Mark Eggleston Date: Mon, 20 Jan 2020 13:23:07 +0000 Subject: [PATCH] [PATCH] PR Fortran/93263 Correct test case Should've have checked for the existance of a non static integer using scan-tree-dump instead of scan-tree-dump-not. A cut and paste error. --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/pr93263_1.f90 | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d8bf3130048..a526e32ac89 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2020-01-20 Mark Eggleston + + * gfortran.dg/pr93263_1.f90: Change scan-tree-dump-not to + scan-tree-dump. + 2020-01-20 H.J. Lu PR target/93319 diff --git a/gcc/testsuite/gfortran.dg/pr93263_1.f90 b/gcc/testsuite/gfortran.dg/pr93263_1.f90 index f96b3589411..3fa22476053 100644 --- a/gcc/testsuite/gfortran.dg/pr93263_1.f90 +++ b/gcc/testsuite/gfortran.dg/pr93263_1.f90 @@ -25,5 +25,5 @@ recursive subroutine check(n) end ! { dg-final { scan-tree-dump-not "static integer\\(kind=4\\) a" "original" } } -! { dg-final { scan-tree-dump-not "integer\\(kind=4\\) a" "original" } } +! { dg-final { scan-tree-dump "integer\\(kind=4\\) a" "original" } } -- 2.30.2