Fortran testsuite: fix invalid Fortran in testcase

Message ID trinity-97b0f00a-c0ee-49fe-ad01-b4bd4fe74810-1709067614727@3c-app-gmx-bap21
State Accepted
Headers
Series Fortran testsuite: fix invalid Fortran in testcase |

Checks

Context Check Description
snail/gcc-patch-check success Github commit url

Commit Message

Harald Anlauf Feb. 27, 2024, 9 p.m. UTC
  Dear all,

the attached patch fixes invalid Fortran in testcase
gfortran.dg/pr101026.f, which might prohibit progress
in fixing pr111781.  (Note that the testcase was for a
tree-optimizer issue, not the Fortran frontend.)

OK for mainline?

Will commit within 24h unless there are comments.

Thanks,
Harald
  

Comments

Jerry D Feb. 28, 2024, 3:53 a.m. UTC | #1
On 2/27/24 1:00 PM, Harald Anlauf wrote:
> Dear all,
> 
> the attached patch fixes invalid Fortran in testcase
> gfortran.dg/pr101026.f, which might prohibit progress
> in fixing pr111781.  (Note that the testcase was for a
> tree-optimizer issue, not the Fortran frontend.)
> 
> OK for mainline?
> 
> Will commit within 24h unless there are comments.
> 
> Thanks,
> Harald
> 

OK, simple.
  

Patch

From 75724b6b42a1c46383d8e6deedbfb8d2ebd0fa12 Mon Sep 17 00:00:00 2001
From: Harald Anlauf <anlauf@gmx.de>
Date: Tue, 27 Feb 2024 21:51:53 +0100
Subject: [PATCH] Fortran testsuite: fix invalid Fortran in testcase

gcc/testsuite/ChangeLog:

	* gfortran.dg/pr101026.f: Let variables used in specification
	expression be passed as dummy arguments
---
 gcc/testsuite/gfortran.dg/pr101026.f | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/testsuite/gfortran.dg/pr101026.f b/gcc/testsuite/gfortran.dg/pr101026.f
index 9576d8802ca..e05e21c898a 100644
--- a/gcc/testsuite/gfortran.dg/pr101026.f
+++ b/gcc/testsuite/gfortran.dg/pr101026.f
@@ -1,6 +1,6 @@ 
 ! { dg-do compile }
 ! { dg-options "-Ofast -frounding-math" }
-      SUBROUTINE PASSB4 (CC,CH)
+      SUBROUTINE PASSB4 (CC,CH,IDO,L1)
       DIMENSION CC(IDO,4,L1), CH(IDO,L1,*)
          DO 103 I=2,IDO,2
             TI4 = CC0-CC(I,4,K)
--
2.35.3