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.

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.
+
 2020-04-10  Thomas Schwinge  <thomas@codesourcery.com>
 
 	PR middle-end/89433

gcc/testsuite/gfortran.dg/asynchronous_5.f03

 ! { 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" } }