mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 17:30:58 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

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

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

From-SVN: r140237
This commit is contained in:
Tobias Burnus 2008-09-10 18:39:15 +02:00 committed by Tobias Burnus
parent b5d76df4c9
commit b554826c78
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
View File

@ -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

2
libgfortran/mk-kinds-h.sh
View File

@ -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