diff options
| author | Fritz Reese <foreese@gcc.gnu.org> | 2020-04-10 11:24:28 -0400 |
|---|---|---|
| committer | Fritz Reese <foreese@gcc.gnu.org> | 2020-04-10 11:24:28 -0400 |
| commit | ecc66362ee58e6b591245eaa3a1ce18f06a31e8c (patch) | |
| tree | 68ea4cd50043c518e46482c18f44395748b90fa2 | |
| parent | be9862dd96945772ae0692bc95b37ec6dbcabda0 (diff) | |
| download | gcc-ecc66362ee58e6b591245eaa3a1ce18f06a31e8c.zip gcc-ecc66362ee58e6b591245eaa3a1ce18f06a31e8c.tar.gz gcc-ecc66362ee58e6b591245eaa3a1ce18f06a31e8c.tar.bz2 | |
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.
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 235d481..833c559 100644 --- 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 fcd281d..6a0ee24 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" } } |