From b0fc5b2bb522fa4700f425a7b882a3b46b40bde1 Mon Sep 17 00:00:00 2001
From: fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 24 May 2007 09:56:50 +0000
Subject: [PATCH] PR fortran/32038 * gfortran.dg/pr25603.f:
Initialize integer variables.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125019 138bc75d-0d04-0410-961f-82ee72b054a4
---
gcc/testsuite/ChangeLog | 5 ++++
gcc/testsuite/gfortran.dg/pr25603.f | 42 +++++++++++++++++++++++++++++
2 files changed, 47 insertions(+)
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,
--
GitLab