From: Mark Eggleston <markeggleston@gcc.gnu.org>
Date: Mon, 20 Jan 2020 13:23:07 +0000 (+0000)
Subject: [PATCH] PR Fortran/93263 Correct test case
X-Git-Tag: upstream/12.2.0~18941
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=e82ba180d6641a1e2bad1ac327234fc1cda658ef;p=platform%2Fupstream%2Fgcc.git

[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.
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d8bf313..a526e32 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2020-01-20  Mark Eggleston  <mark.eggleston@codethink.com>
+
+	* gfortran.dg/pr93263_1.f90: Change scan-tree-dump-not to
+	scan-tree-dump.
+
 2020-01-20  H.J. Lu  <hongjiu.lu@intel.com>
 
 	PR target/93319
diff --git a/gcc/testsuite/gfortran.dg/pr93263_1.f90 b/gcc/testsuite/gfortran.dg/pr93263_1.f90
index f96b358..3fa2247 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" } }