* varasm.c (output_constructor_regular_field): Check TYPE_SIZE_UNIT of
[official-gcc.git] / libgfortran / mk-sik-inc.sh
blob68c042f68bca03b3989cd6000df5e942cc75a0ab
1 #!/bin/sh
3 compile="$1"
4 kinds=""
5 possible_kinds="1 2 4 8 16"
6 c=0
8 for k in $possible_kinds; do
9 echo " integer (kind=$k) :: x" > tmp$$.f90
10 echo " x = 1_$k" >> tmp$$.f90
11 echo " end" >> tmp$$.f90
12 if $compile -S tmp$$.f90 > /dev/null 2>&1; then
13 kinds="$kinds $k"
14 c=`expr $c + 1`
16 rm -f tmp$$.*
17 done
19 echo " integer, parameter :: c = $c"
20 echo " type (int_info), parameter :: int_infos(c) = (/ &"
22 i=0
23 for k in $kinds; do
24 # echo -n is not portable
25 str=" int_info ($k, range(0_$k))"
26 i=`expr $i + 1`
27 if [ $i -lt $c ]; then
28 echo "$str, &"
29 else
30 echo "$str /)"
32 done
34 exit 0