OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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.
This commit is contained in:
Fritz Reese 2020-04-10 11:24:28 -04:00
parent be9862dd96
commit ecc66362ee
2 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

18
gcc/testsuite/gfortran.dg/asynchronous_5.f03
View File

@ -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" } }