re PR testsuite/32038 (gfortran.dg/pr25603.f is invalid code)

	PR fortran/32038
	* gfortran.dg/pr25603.f: Initialize integer variables.

From-SVN: r125019

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8abebbe1eded1db341350e5d89e1ca5376cdeeae..ace445634c9fa944fd0f3066660d118c2d448c97 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-05-24 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
+
+       PR fortran/32038
+       * gfortran.dg/pr25603.f: Initialize integer variables.
+
 2007-05-23  Ian Lance Taylor  <iant@google.com>
 
        * g++.dg/other/vrp1.C: New test.

diff --git a/gcc/testsuite/gfortran.dg/pr25603.f b/gcc/testsuite/gfortran.dg/pr25603.f
index a818d5d29f9db21bd55042bdab4724fbbd332f72..fbcbdf51a93651ecacf38224538f8e6fcd4fefad 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr25603.f
+++ b/gcc/testsuite/gfortran.dg/pr25603.f
@@ -44,6 +44,48 @@ C
        call abort
       endif
 
+      LHELPA = 1
+      LHELP = 1
+      LCN = 1
+      LBN = 1
+      LAN = 1
+      LDCDY = 1
+      LDCDX = 1
+      LKM = 1
+      LTM = 1
+      LVG = 1
+      LUG = 1
+      LVM = 1
+      LUM = 1
+      LHVAR = 1
+      LZET = 1
+      LDEP = 1
+      LVDEP = 1
+      LTSTR = 1
+      LUSTR = 1
+      LOBUK = 1
+      LTAVR = 1
+      LSTEPH = 1
+      LHMIX = 1
+      LZ0 = 1
+      LELEVY = 1
+      LELEVX = 1
+      LELEV = 1
+      LDKZH = 1
+      LDKZM = 1
+      LQ = 1
+      LPSTEP = 1
+      LPI = 1
+      LWZ = 1
+      LVSTEP = 1
+      LVY = 1
+      LUSTEP = 1
+      LUX = 1
+      LTSTEP = 1
+      LPOT = 1
+      LCSTEP = 1
+      LC = 1
+
       CALL BAR2(NX,NY,NZ,NT,NTIME,NWINDX,NWINDY,NSINKS,NFILT,XSTART,
      * YSTART,ZSTART,TSTART,DELTAX,DELTAY,DELTAZ,DELTAT,PHI,DL,
      * DX,DY,DZ,IB,IK,ITY,NCOUNT,NPRINT,NGRAPH,NPSTEP,NGSTEP,LAST,