diff options
author | Fritz Reese <foreese@gcc.gnu.org> | 2020-04-10 11:28:45 -0400 |
---|---|---|
committer | Fritz Reese <foreese@gcc.gnu.org> | 2020-04-10 11:28:45 -0400 |
commit | e26bd694c790b7c8f68c6736b2683c60a8fcbcfe (patch) | |
tree | d077f53179e7b563e42ea71b385e59912a45d055 /gcc | |
parent | ecc66362ee58e6b591245eaa3a1ce18f06a31e8c (diff) | |
download | gcc-e26bd694c790b7c8f68c6736b2683c60a8fcbcfe.zip gcc-e26bd694c790b7c8f68c6736b2683c60a8fcbcfe.tar.gz gcc-e26bd694c790b7c8f68c6736b2683c60a8fcbcfe.tar.bz2 |
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.
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/asynchronous_5.f03 | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 833c559..407bfef 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,10 @@ 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 patterns for scan-tree-dump. diff --git a/gcc/testsuite/gfortran.dg/asynchronous_5.f03 b/gcc/testsuite/gfortran.dg/asynchronous_5.f03 index 6a0ee24..88ed2c9 100644 --- a/gcc/testsuite/gfortran.dg/asynchronous_5.f03 +++ b/gcc/testsuite/gfortran.dg/asynchronous_5.f03 @@ -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) |