Fix UNRESOLVED testcase gfortran.dg/asynchronous_5.f03.

gcc/testsuite/ChangeLog:

2020-04-10  Fritz Reese  <foreese@gcc.gnu.org>

	* gfortran.dg/asynchronous_5.f03: Add -fdump-tree-original and fix
	patterns for scan-tree-dump.

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 235d481e6cf3ea9a4df426c1200ab48cb07308d7..833c559f2f5a805e2b00d807c8eb23bb0ed3493d 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2020-04-10  Fritz Reese  <foreese@gcc.gnu.org>
+
+       * gfortran.dg/asynchronous_5.f03: Add -fdump-tree-original and fix
+       patterns for scan-tree-dump.
+
 2020-04-10  Thomas Schwinge  <thomas@codesourcery.com>
 
        PR middle-end/89433

diff --git a/gcc/testsuite/gfortran.dg/asynchronous_5.f03 b/gcc/testsuite/gfortran.dg/asynchronous_5.f03
index fcd281d5001b5d60e2f8819e0c69c475cfb939c4..6a0ee2437a26ae1d3be46a4d57e8938123d1c910 100644 (file)
--- a/gcc/testsuite/gfortran.dg/asynchronous_5.f03
+++ b/gcc/testsuite/gfortran.dg/asynchronous_5.f03
@@ -1,5 +1,5 @@
 ! { dg-do compile }
-! { dg-options "-std=f2003" }
+! { dg-options "-std=f2003 -fdump-tree-original" }
 !
 ! Covers code introduced by the fix to PR fortran/87923.
 ! The idea is that the variables in a namelist or I/O list used for
@@ -14,19 +14,17 @@ type t
   character(4) :: comp_async
 end type
 
-character(2) :: ccvar_async
 type(t) :: dvar_async
 integer :: ivar_async
 real :: rvar_async
 logical :: lvar_async
-type(t), dimension(2) :: darrvar_async
 integer :: ivar_noasync
 
 namelist /names/ ivar_async, rvar_async, lvar_async
 
 open(1, asynchronous="yes")
 write(1, asynchronous="yes") dvar_async, ccvar_async
-write(1, asynchronous="yes") dvar_async%comp_async, darrvar_async
+write(1, asynchronous="yes") dvar_async%comp_async
 read(1, asynchronous="yes", nml=names)
 
 open(2, asynchronous="no")
@@ -34,10 +32,8 @@ read(2, asynchronous="no") ivar_noasync
 
 end
 
-! { dg-final { scan-tree-dump-times "volatile.*?ccvar_async" 1 "original" } }
-! { dg-final { scan-tree-dump-times "volatile.*?dvar_async" 1 "original" } }
-! { dg-final { scan-tree-dump-times "volatile.*?ivar_async" 1 "original" } }
-! { dg-final { scan-tree-dump-times "volatile.*?rvar_async" 1 "original" } }
-! { dg-final { scan-tree-dump-times "volatile.*?lvar_async" 1 "original" } }
-! { dg-final { scan-tree-dump-times "volatile.*?darrvar_async" 1 "original" } }
-! { dg-final { scan-tree-dump-not "volatile.*?ivar_noasync" "original" } }
+! { dg-final { scan-tree-dump "volatile +struct +\[^ \]+ +dvar_async" "original" } }
+! { dg-final { scan-tree-dump "volatile +\[^ \]+ +ivar_async" "original" } }
+! { dg-final { scan-tree-dump "volatile +\[^ \]+ +rvar_async" "original" } }
+! { dg-final { scan-tree-dump "volatile +\[^ \]+ +lvar_async" "original" } }
+! { dg-final { scan-tree-dump-not "volatile +\[^ \]+ +ivar_noasync" "original" } }