[gcc r14-4581] testsuite: Avoid uninit var in pr60510.f [PR111427]

[Kewen Lin]

https://gcc.gnu.org/g:610b845a426e26fa86724e5c9d6f74c7a4baf741

commit r14-4581-g610b845a426e26fa86724e5c9d6f74c7a4baf741
Author: Kewen Lin <linkw@linux.ibm.com>
Date:   Thu Oct 12 00:04:58 2023 -0500

    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:
---
 gcc/testsuite/gfortran.dg/vect/pr60510.f | 1 +
 1 file changed, 1 insertion(+)

diff --git a/gcc/testsuite/gfortran.dg/vect/pr60510.f b/gcc/testsuite/gfortran.dg/vect/pr60510.f
index ecd50dd5586..6cae82acece 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