[Patch, Fortran] PR37420 - Fix -Wunused-variable.

[Tobias Burnus]

H.J. Lu wrote:
>> Build and check-gfortran regtested on x86-64-linux.
>> OK for the trunk?
>>
>> 2008-09-09  Tobias Burnus  <burnus@net-b.de>
>>
>>        PR fortran/37420
>>        * trans-decl.c (get_proc_pointer_decl): Fix -Wunused-variable
> This may have broken gcc bootstrap. On Linux/x86, I got
>   
Indeed it did. I committed the following as obvious (Rev. 140237).

Tobias

Index: ChangeLog
===================================================================
--- ChangeLog   (Revision 140236)
+++ ChangeLog   (Revision 140237)
@@ -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
Index: mk-kinds-h.sh
===================================================================
--- mk-kinds-h.sh       (Revision 140236)
+++ mk-kinds-h.sh       (Revision 140237)
@@ -13,6 +13,7 @@
 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 @@

 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