Lines Matching refs:f90
18 echo " integer (kind=$k) :: i" > tmp$$.f90
19 echo " i = 1_$k" >> tmp$$.f90
20 echo " end" >> tmp$$.f90
21 if $compile -S tmp$$.f90 > /dev/null 2>&1; then
53 echo "use iso_c_binding; print *, c_long_double ; end" > tmq$$.f90
54 long_double_kind=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \
60 echo " real (kind=$k) :: x" > tmp$$.f90
61 echo " x = 1.0_$k" >> tmp$$.f90
62 echo " end" >> tmp$$.f90
63 if $compile -S tmp$$.f90 > /dev/null 2>&1; then
85 echo "print *, huge(0._$k) ; end" > tmq$$.f90
86 huge=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \
91 echo "print *, tiny(0._$k) ; end" > tmq$$.f90
92 tiny=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \
97 echo "print *, digits(0._$k) ; end" > tmq$$.f90
98 digits=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \
103 echo "print *, radix(0._$k) ; end" > tmq$$.f90
104 radix=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \
Indexes created Tue Apr 21 00:23:25 UTC 2026