From e26bd694c790b7c8f68c6736b2683c60a8fcbcfe Mon Sep 17 00:00:00 2001 From: Fritz Reese Date: Fri, 10 Apr 2020 11:28:45 -0400 Subject: [PATCH] Fix typo in gfortran.dg/asynchronous_5.f03 from last commit. 2020-04-10 Fritz Reese * gfortran.dg/asynchronous_5.f03: Fix typo in testcase and add IMPLICIT NONE. --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/asynchronous_5.f03 | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 833c559f2f5..407bfef453f 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2020-04-10 Fritz Reese + + * gfortran.dg/asynchronous_5.f03: Fix typo in testcase and add + IMPLICIT NONE. + 2020-04-10 Fritz Reese * gfortran.dg/asynchronous_5.f03: Add -fdump-tree-original and fix diff --git a/gcc/testsuite/gfortran.dg/asynchronous_5.f03 b/gcc/testsuite/gfortran.dg/asynchronous_5.f03 index 6a0ee2437a2..88ed2c9d7c9 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) -- 2.30.2