+
+ # Check for the value of HUGE
+ echo "print *, huge(0._$k) ; end" > tmq$$.f90
+ huge=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \
+ | sed 's/ *TRANSFER *//' | sed 's/_.*//'`
+ rm -f tmq$$.*
+
+ # Check for the value of DIGITS
+ echo "print *, digits(0._$k) ; end" > tmq$$.f90
+ digits=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \
+ | sed 's/ *TRANSFER *//'`
+ rm -f tmq$$.*
+
+ # Check for the value of RADIX
+ echo "print *, radix(0._$k) ; end" > tmq$$.f90
+ radix=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \
+ | sed 's/ *TRANSFER *//'`
+ rm -f tmq$$.*
+
+ # Output the information we've gathered