1#!/bin/sh 2 3compile="$1" 4kinds="" 5possible_kinds="1 2 4 8 16" 6c=0 7 8for 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` 15 fi 16 rm -f tmp$$.* 17done 18 19echo " integer, parameter :: c = $c" 20echo " type (int_info), parameter :: int_infos(c) = (/ &" 21 22i=0 23for 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 /)" 31 fi 32done 33 34exit 0 35