diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8abebbe1ede..ace445634c9 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 a818d5d29f9..fbcbdf51a93 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,