mk-sik-inc.sh: Make -Wunused-variable proof.

2008-09-10  Tobias Burnus  <burnus@net-b.de>
            H. J. Lu  <hongjiu.lu@intel.com>

        * mk-sik-inc.sh: Make -Wunused-variable proof.
        * mk-srk-inc.sh: Make -Wunused-variable proof.

Co-Authored-By: H.J. Lu <hongjiu.lu@intel.com>
From-SVN: r140239

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 60181400d2ebf57fd62271025283be453b4b900b..54d3194ba21636df92700c8f54cf730158d8cbcb 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+2008-09-10  Tobias Burnus  <burnus@net-b.de>
+           H. J. Lu  <hongjiu.lu@intel.com>
+
+       * mk-sik-inc.sh: Make -Wunused-variable proof.
+       * mk-srk-inc.sh: Make -Wunused-variable proof.
+
 2008-09-10  Tobias Burnus  <burnus@net-b.de>
 
        * mk-kinds-h.sh: Make -Wunused-variable proof.

diff --git a/libgfortran/mk-sik-inc.sh b/libgfortran/mk-sik-inc.sh
index 83dcb16999efd66fc9de67fe8671529e09102ef2..68c042f68bca03b3989cd6000df5e942cc75a0ab 100755 (executable)
--- a/libgfortran/mk-sik-inc.sh
+++ b/libgfortran/mk-sik-inc.sh
@@ -7,6 +7,7 @@ c=0
 
 for k in $possible_kinds; do
   echo "  integer (kind=$k) :: x" > tmp$$.f90
+  echo "  x = 1_$k" >> tmp$$.f90
   echo "  end" >> tmp$$.f90
   if $compile -S tmp$$.f90 > /dev/null 2>&1; then
     kinds="$kinds $k"

diff --git a/libgfortran/mk-srk-inc.sh b/libgfortran/mk-srk-inc.sh
index 076c24bb5b7847cd7fc66c53935623af6117bc20..10c428f02d6642b6893f8f349e0a08b0497f6f07 100755 (executable)
--- a/libgfortran/mk-srk-inc.sh
+++ b/libgfortran/mk-srk-inc.sh
@@ -7,6 +7,7 @@ c=0
 
 for k in $possible_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
     kinds="$kinds $k"