OSDN Git Service

2007-05-24 H.J. Lu <hongjiu.lu@intel.com>
[pf3gnuchains/gcc-fork.git] / libgfortran / mk-srk-inc.sh
index 4704698..d036d68 100755 (executable)
@@ -20,12 +20,13 @@ echo "  type (real_info), parameter :: real_infos(c) = (/ &"
 
 i=0
 for k in $kinds; do
-  echo -n "    real_info ($k, precision(0.0_$k), range(0.0_$k))"
+  # echo -n is not portable
+  str="    real_info ($k, precision(0.0_$k), range(0.0_$k))"
   i=`expr $i + 1`
   if [ $i -lt $c ]; then
-    echo ", &"
+    echo "$str, &"
   else
-    echo " /)"
+    echo "$str /)"
   fi
 done