From b554826c78baa683c38238bed50beaa7dd4e5b87 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Wed, 10 Sep 2008 18:39:15 +0200 Subject: mk-kinds-h.sh: Make -Wunused-variable proof. 2008-09-10 Tobias Burnus * mk-kinds-h.sh: Make -Wunused-variable proof. From-SVN: r140237 --- libgfortran/ChangeLog | 4 ++++ libgfortran/mk-kinds-h.sh | 2 ++ 2 files changed, 6 insertions(+) (limited to 'libgfortran') diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 3a0b248..6018140 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,7 @@ +2008-09-10 Tobias Burnus + + * mk-kinds-h.sh: Make -Wunused-variable proof. + 2008-09-07 Thomas Koenig PR fortran/37203 diff --git a/libgfortran/mk-kinds-h.sh b/libgfortran/mk-kinds-h.sh index 6e893ff..c5d20fe 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 -- cgit v1.1