OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

mk-kinds-h.sh: Disable REAL(16) if REAL(10) is available.

Browse Source 
2010-08-28  Tobias Burnus  <burnus@net-b.de>

        * mk-kinds-h.sh: Disable REAL(16) if REAL(10) is available.

From-SVN: r163612
This commit is contained in:
Tobias Burnus 2010-08-28 09:35:47 +02:00 committed by Tobias Burnus
parent e84f122fcc
commit e4ff7a56c6
2 changed files with 14 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
libgfortran/ChangeLog
View File

@ -1,3 +1,7 @@
2010-08-28 Tobias Burnus <burnus@net-b.de>
* mk-kinds-h.sh: Disable REAL(16) if REAL(10) is available.
2010-08-27 Tobias Burnus <burnus@net-b.de>
PR fortran/33197

12
libgfortran/mk-kinds-h.sh
View File

@ -44,6 +44,7 @@ echo "#define GFC_UINTEGER_LARGEST GFC_UINTEGER_${largest}"
echo "#define GFC_DEFAULT_CHAR ${smallest}"
echo ""
REAL_10_FOUND=
for k in $possible_real_kinds; do
echo " real (kind=$k) :: x" > tmp$$.f90
@ -53,8 +54,15 @@ for k in $possible_real_kinds; do
case $k in
4) ctype="float" ; suffix="f" ;;
8) ctype="double" ; suffix="" ;;
10) ctype="long double" ; suffix="l" ;;
16) ctype="long double" ; suffix="l" ;;
10) ctype="long double" ; suffix="l" ; REAL_10_FOUND=1 ;;
16) ctype="long double"
suffix="l"
# Disable REAL(16) if it is just __float128
# until the library is fixed
if [ -n "$REAL_10_FOUND" ]; then
continue
fi
;;
*) echo "$0: Unknown type" >&2 ; exit 1 ;;
esac