gcc/

[pf3gnuchains/gcc-fork.git] / libgfortran / mk-sik-inc.sh

diff --git a/libgfortran/mk-sik-inc.sh b/libgfortran/mk-sik-inc.sh
index 536eda7..68c042f 100755 (executable)
--- a/libgfortran/mk-sik-inc.sh
+++ b/libgfortran/mk-sik-inc.sh
@@ -7,8 +7,9 @@ c=0
 
 for k in $possible_kinds; do
   echo "  integer (kind=$k) :: x" > tmp$$.f90
 
 for k in $possible_kinds; do
   echo "  integer (kind=$k) :: x" > tmp$$.f90

+  echo "  x = 1_$k" >> tmp$$.f90

   echo "  end" >> tmp$$.f90
   echo "  end" >> tmp$$.f90

-  if $compile -c tmp$$.f90 > /dev/null 2>&1; then
+  if $compile -S tmp$$.f90 > /dev/null 2>&1; then

     kinds="$kinds $k"
     c=`expr $c + 1`
   fi
     kinds="$kinds $k"
     c=`expr $c + 1`
   fi


@@ -20,12 +21,13 @@ echo "  type (int_info), parameter :: int_infos(c) = (/ &"
 
 i=0
 for k in $kinds; do
 
 i=0
 for k in $kinds; do

-  echo -n "    int_info ($k, range(0_$k))"
+  # echo -n is not portable
+  str="    int_info ($k, range(0_$k))"

   i=`expr $i + 1`
   if [ $i -lt $c ]; then
   i=`expr $i + 1`
   if [ $i -lt $c ]; then

-    echo ", &"
+    echo "$str, &"

   else
   else

-    echo " /)"
+    echo "$str /)"

   fi
 done
 
   fi
 done