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

Fix typo in gfortran.dg/asynchronous_5.f03 from last commit. 

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

	* gfortran.dg/asynchronous_5.f03: Fix typo in testcase and add
	IMPLICIT NONE.
This commit is contained in:
Fritz Reese 2020-04-10 11:28:45 -04:00
parent ecc66362ee
commit e26bd694c7
2 changed files with 8 additions and 1 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: Fix typo in testcase and add
IMPLICIT NONE.
2020-04-10 Fritz Reese <foreese@gcc.gnu.org>
* gfortran.dg/asynchronous_5.f03: Add -fdump-tree-original and fix

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

@ -10,6 +10,8 @@
! should obtain the "volatile" specifier in its declaration.
!
implicit none
type t
character(4) :: comp_async
end type
@ -23,7 +25,7 @@ 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
write(1, asynchronous="yes") dvar_async%comp_async
read(1, asynchronous="yes", nml=names)