From 58e4a744b6e8140499ed6c33a8e9a6557e102f74 Mon Sep 17 00:00:00 2001
From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Wed, 27 Apr 2022 22:40:49 +0200
Subject: [PATCH] Fix oversight from previous commit to pr70673.

gcc/testsuite/ChangeLog:

	* gfortran.dg/pr70673.f90: Removed second invalid
	line.
---
 gcc/testsuite/gfortran.dg/pr70673.f90 | 1 -
 1 file changed, 1 deletion(-)

diff --git a/gcc/testsuite/gfortran.dg/pr70673.f90 b/gcc/testsuite/gfortran.dg/pr70673.f90
index 1449130..6eb9e7f 100644
--- a/gcc/testsuite/gfortran.dg/pr70673.f90
+++ b/gcc/testsuite/gfortran.dg/pr70673.f90
@@ -9,7 +9,6 @@ contains
   subroutine s(inp)
     character(*), intent(in) :: inp
     character(:), allocatable :: a
-    a = a           ! This used to ICE.
     a = inp
     a = a           ! This used to ICE too
     if ((len (a) .ne. 5) .or. (a .ne. "hello")) STOP 1
-- 
2.7.4