From ecc66362ee58e6b591245eaa3a1ce18f06a31e8c Mon Sep 17 00:00:00 2001 From: Fritz Reese Date: Fri, 10 Apr 2020 11:24:28 -0400 Subject: [PATCH] Fix UNRESOLVED testcase gfortran.dg/asynchronous_5.f03. gcc/testsuite/ChangeLog: 2020-04-10 Fritz Reese * gfortran.dg/asynchronous_5.f03: Add -fdump-tree-original and fix patterns for scan-tree-dump. --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/asynchronous_5.f03 | 18 +++++++----------- 2 files changed, 12 insertions(+), 11 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 235d481e6cf..833c559f2f5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2020-04-10 Fritz Reese + + * gfortran.dg/asynchronous_5.f03: Add -fdump-tree-original and fix + patterns for scan-tree-dump. + 2020-04-10 Thomas Schwinge PR middle-end/89433 diff --git a/gcc/testsuite/gfortran.dg/asynchronous_5.f03 b/gcc/testsuite/gfortran.dg/asynchronous_5.f03 index fcd281d5001..6a0ee2437a2 100644 --- 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" } } -- 2.30.2