OSDN Git Service

536eda70c8895c4c4a685f3159d9a6704a92a85c
[pf3gnuchains/gcc-fork.git] / libgfortran / mk-sik-inc.sh
1 #!/bin/sh
2
3 compile="$1"
4 kinds=""
5 possible_kinds="1 2 4 8 16"
6 c=0
7
8 for k in $possible_kinds; do
9   echo "  integer (kind=$k) :: x" > tmp$$.f90
10   echo "  end" >> tmp$$.f90
11   if $compile -c tmp$$.f90 > /dev/null 2>&1; then
12     kinds="$kinds $k"
13     c=`expr $c + 1`
14   fi
15   rm -f tmp$$.*
16 done
17
18 echo "  integer, parameter :: c = $c"
19 echo "  type (int_info), parameter :: int_infos(c) = (/ &"
20
21 i=0
22 for k in $kinds; do
23   echo -n "    int_info ($k, range(0_$k))"
24   i=`expr $i + 1`
25   if [ $i -lt $c ]; then
26     echo ", &"
27   else
28     echo " /)"
29   fi
30 done
31
32 exit 0