From: Tobias Burnus <burnus@net-b.de>
Date: Wed, 10 Sep 2008 16:39:15 +0000 (+0200)
Subject: mk-kinds-h.sh: Make -Wunused-variable proof.
X-Git-Tag: releases/gcc-4.4.0~2512
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=b554826c78baa683c38238bed50beaa7dd4e5b87;p=thirdparty%2Fgcc.git

mk-kinds-h.sh: Make -Wunused-variable proof.

2008-09-10  Tobias Burnus  <burnus@net-b.de>

       * mk-kinds-h.sh: Make -Wunused-variable proof.

From-SVN: r140237
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 3a0b24835323..60181400d2eb 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,7 @@
+2008-09-10  Tobias Burnus  <burnus@net-b.de>
+
+	* mk-kinds-h.sh: Make -Wunused-variable proof.
+
 2008-09-07  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR fortran/37203
diff --git a/libgfortran/mk-kinds-h.sh b/libgfortran/mk-kinds-h.sh
index 6e893ff5ee73..c5d20fe12c5c 100755
--- a/libgfortran/mk-kinds-h.sh
+++ b/libgfortran/mk-kinds-h.sh
@@ -13,6 +13,7 @@ largest=""
 smallest=""
 for k in $possible_integer_kinds; do
   echo "  integer (kind=$k) :: i" > tmp$$.f90
+  echo "  i = 1_$k" >> tmp$$.f90
   echo "  end" >> tmp$$.f90
   if $compile -S tmp$$.f90 > /dev/null 2>&1; then
     s=`expr 8 \* $k`
@@ -46,6 +47,7 @@ echo ""
 
 for k in $possible_real_kinds; do
   echo "  real (kind=$k) :: x" > tmp$$.f90
+  echo "  x = 1.0_$k" >> tmp$$.f90
   echo "  end" >> tmp$$.f90
   if $compile -S tmp$$.f90 > /dev/null 2>&1; then
     case $k in