From: Kewen Lin <linkw@linux.ibm.com>
Date: Thu, 12 Oct 2023 05:04:58 +0000 (-0500)
Subject: testsuite: Avoid uninit var in pr60510.f [PR111427]
X-Git-Tag: basepoints/gcc-15~5558
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=610b845a426e26fa86724e5c9d6f74c7a4baf741;p=thirdparty%2Fgcc.git

testsuite: Avoid uninit var in pr60510.f [PR111427]

The uninitialized variable a in pr60510.f can cause
some random failures as exposed in PR111427.  This
patch is to make it initialized accordingly.

	PR testsuite/111427

gcc/testsuite/ChangeLog:

	* gfortran.dg/vect/pr60510.f (test): Init variable a.
---

diff --git a/gcc/testsuite/gfortran.dg/vect/pr60510.f b/gcc/testsuite/gfortran.dg/vect/pr60510.f
index ecd50dd5586e..6cae82acecef 100644
--- a/gcc/testsuite/gfortran.dg/vect/pr60510.f
+++ b/gcc/testsuite/gfortran.dg/vect/pr60510.f
@@ -17,6 +17,7 @@
 
       program test
       real*8 x(1024),y(1024),a
+      a = 0.0
       do i=1,1024
         x(i) = i
         y(i) = i+1