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.

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 833c559f2f5a805e2b00d807c8eb23bb0ed3493d..407bfef453fccd7452ca20ff3abd7a5840eac49f 100644 (file)
--- 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: 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

diff --git a/gcc/testsuite/gfortran.dg/asynchronous_5.f03 b/gcc/testsuite/gfortran.dg/asynchronous_5.f03
index 6a0ee2437a26ae1d3be46a4d57e8938123d1c910..88ed2c9d7c9be1c2b81013ad9b9e679b70624f82 100644 (file)
--- 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)