X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=libgfortran%2Fmk-kinds-h.sh;h=c5d20fe12c5c6b443d8f485b83ffa79e50655769;hp=6e893ff5ee73e7e0b72c6873f8c0638837c89a78;hb=897f9d25c9514d0a9eb4f9af7cce1a59b0645f13;hpb=bd978a47e06b48783c0af438cd5d2d1daa80da6d

diff --git a/libgfortran/mk-kinds-h.sh b/libgfortran/mk-kinds-h.sh
index 6e893ff5ee7..c5d20fe12c5 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