X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=libgfortran%2Fmk-srk-inc.sh;h=402441ce6f2f54c67a98e309435d17a77b20d5f4;hb=6f1dd0ceec29ffa3c3f81d8486eeb1aa1e68bc69;hp=076c24bb5b7847cd7fc66c53935623af6117bc20;hpb=bd978a47e06b48783c0af438cd5d2d1daa80da6d;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/libgfortran/mk-srk-inc.sh b/libgfortran/mk-srk-inc.sh
index 076c24bb5b7..402441ce6f2 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"
@@ -21,7 +22,7 @@ echo "  type (real_info), parameter :: real_infos(c) = (/ &"
 i=0
 for k in $kinds; do
   # echo -n is not portable
-  str="    real_info ($k, precision(0.0_$k), range(0.0_$k))"
+  str="    real_info ($k, precision(0.0_$k), range(0.0_$k), radix(0.0_$k))"
   i=`expr $i + 1`
   if [ $i -lt $c ]; then
     echo "$str, &"