From: Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
Date: Thu, 24 May 2007 09:56:50 +0000 (+0000)
Subject: re PR testsuite/32038 (gfortran.dg/pr25603.f is invalid code)
X-Git-Tag: releases/gcc-4.3.0~4943
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=4f5497a9245ac73f32f4d202e3b7497c61e79925;p=thirdparty%2Fgcc.git

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 8abebbe1eded..ace445634c9f 100644
--- 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 a818d5d29f9d..fbcbdf51a936 100644
--- 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,