aboutsummaryrefslogtreecommitdiff
path: root/libgfortran
diff options
context:
space:
mode:
authorburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>2008-09-10 17:18:08 +0000
committerburnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>2008-09-10 17:18:08 +0000
commitf77b95e79ca9d6faf06e587911e76b7b29f7f2d3 (patch)
treea5846a1760fc355f28237f13be7f972c51d08e37 /libgfortran
parent2dbdf201fad2ea4c13a4826e515dc76cb66f84dd (diff)
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. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@140239 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r--libgfortran/ChangeLog6
-rwxr-xr-xlibgfortran/mk-sik-inc.sh1
-rwxr-xr-xlibgfortran/mk-srk-inc.sh1
3 files changed, 8 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 60181400d2e..54d3194ba21 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,4 +1,10 @@
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 83dcb16999e..68c042f68bc 100755
--- 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 076c24bb5b7..10c428f02d6 100755
--- 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"