[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 d8bf3130048d5417e74c04fd2b3409bf7955336b..a526e32ac8936d856c45a8e59f52c001a43a1068 100644 (file)
--- 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 f96b35894114f5ae1cedfe87b0e7811ecca5b08b..3fa22476053d8eb1a057021d185733d2375e93ec 100644 (file)
--- 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" } }