Mercurial > hg > CbC > CbC_gcc
comparison libgfortran/mk-kinds-h.sh @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children |
comparison
equal
deleted
inserted
replaced
68:561a7518be6b | 111:04ced10e8804 |
---|---|
1 #!/bin/sh | |
2 LC_ALL=C | |
3 export LC_ALL | |
4 | |
5 compile="$1" | |
6 | |
7 # Possible types must be listed in ascending order | |
8 possible_integer_kinds="1 2 4 8 16" | |
9 possible_real_kinds="4 8 10 16" | |
10 | |
11 | |
12 largest="" | |
13 smallest="" | |
14 for k in $possible_integer_kinds; do | |
15 echo " integer (kind=$k) :: i" > tmp$$.f90 | |
16 echo " i = 1_$k" >> tmp$$.f90 | |
17 echo " end" >> tmp$$.f90 | |
18 if $compile -S tmp$$.f90 > /dev/null 2>&1; then | |
19 s=`expr 8 \* $k` | |
20 largest="$k" | |
21 | |
22 if [ $s -eq 128 ]; then | |
23 prefix="__" | |
24 else | |
25 prefix="" | |
26 fi | |
27 | |
28 if [ "$smallest" = "" ]; then | |
29 smallest="$k" | |
30 fi | |
31 | |
32 echo "typedef ${prefix}int${s}_t GFC_INTEGER_${k};" | |
33 echo "typedef ${prefix}uint${s}_t GFC_UINTEGER_${k};" | |
34 echo "typedef GFC_INTEGER_${k} GFC_LOGICAL_${k};" | |
35 echo "#define HAVE_GFC_LOGICAL_${k}" | |
36 echo "#define HAVE_GFC_INTEGER_${k}" | |
37 echo "" | |
38 fi | |
39 rm -f tmp$$.* | |
40 done | |
41 | |
42 echo "#define GFC_INTEGER_LARGEST GFC_INTEGER_${largest}" | |
43 echo "#define GFC_UINTEGER_LARGEST GFC_UINTEGER_${largest}" | |
44 echo "#define GFC_DEFAULT_CHAR ${smallest}" | |
45 echo "" | |
46 | |
47 | |
48 # Get the kind value for long double, so we may disambiguate it | |
49 # from __float128. | |
50 echo "use iso_c_binding; print *, c_long_double ; end" > tmq$$.f90 | |
51 long_double_kind=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \ | |
52 | sed 's/ *TRANSFER *//'` | |
53 rm -f tmq$$.* | |
54 | |
55 | |
56 for k in $possible_real_kinds; do | |
57 echo " real (kind=$k) :: x" > tmp$$.f90 | |
58 echo " x = 1.0_$k" >> tmp$$.f90 | |
59 echo " end" >> tmp$$.f90 | |
60 if $compile -S tmp$$.f90 > /dev/null 2>&1; then | |
61 case $k in | |
62 4) ctype="float" ; cplxtype="complex float" ; suffix="f" ;; | |
63 8) ctype="double" ; cplxtype="complex double" ; suffix="" ;; | |
64 10) ctype="long double" ; cplxtype="complex long double" ; suffix="l" ;; | |
65 16) if [ $long_double_kind -eq 10 ]; then | |
66 ctype="__float128" | |
67 cplxtype="_Complex float __attribute__((mode(TC)))" | |
68 suffix="q" | |
69 else | |
70 ctype="long double" | |
71 cplxtype="complex long double" | |
72 suffix="l" | |
73 fi ;; | |
74 *) echo "$0: Unknown type" >&2 ; exit 1 ;; | |
75 esac | |
76 | |
77 # Check for the value of HUGE | |
78 echo "print *, huge(0._$k) ; end" > tmq$$.f90 | |
79 huge=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \ | |
80 | sed 's/ *TRANSFER *//' | sed 's/_.*//'` | |
81 rm -f tmq$$.* | |
82 | |
83 # Check for the value of DIGITS | |
84 echo "print *, digits(0._$k) ; end" > tmq$$.f90 | |
85 digits=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \ | |
86 | sed 's/ *TRANSFER *//'` | |
87 rm -f tmq$$.* | |
88 | |
89 # Check for the value of RADIX | |
90 echo "print *, radix(0._$k) ; end" > tmq$$.f90 | |
91 radix=`$compile -S -fdump-parse-tree tmq$$.f90 | grep TRANSFER \ | |
92 | sed 's/ *TRANSFER *//'` | |
93 rm -f tmq$$.* | |
94 | |
95 # Output the information we've gathered | |
96 echo "typedef ${ctype} GFC_REAL_${k};" | |
97 echo "typedef ${cplxtype} GFC_COMPLEX_${k};" | |
98 echo "#define HAVE_GFC_REAL_${k}" | |
99 echo "#define HAVE_GFC_COMPLEX_${k}" | |
100 echo "#define GFC_REAL_${k}_HUGE ${huge}${suffix}" | |
101 echo "#define GFC_REAL_${k}_LITERAL_SUFFIX ${suffix}" | |
102 if [ "x$suffix" = "x" ]; then | |
103 echo "#define GFC_REAL_${k}_LITERAL(X) (X)" | |
104 else | |
105 echo "#define GFC_REAL_${k}_LITERAL(X) (X ## ${suffix})" | |
106 fi | |
107 echo "#define GFC_REAL_${k}_DIGITS ${digits}" | |
108 echo "#define GFC_REAL_${k}_RADIX ${radix}" | |
109 echo "" | |
110 fi | |
111 rm -f tmp$$.* | |
112 done | |
113 | |
114 | |
115 # After this, we include a header that can override some of the | |
116 # autodetected settings. | |
117 echo '#include "kinds-override.h"' | |
118 | |
119 exit 0 |