git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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

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> 2010-08-27 Tobias Burnus <burnus@net-b.de>
PR fortran/33197 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 "#define GFC_DEFAULT_CHAR ${smallest}"
echo "" echo ""
REAL_10_FOUND=
for k in $possible_real_kinds; do for k in $possible_real_kinds; do
echo " real (kind=$k) :: x" > tmp$$.f90 echo " real (kind=$k) :: x" > tmp$$.f90
@ -53,8 +54,15 @@ for k in $possible_real_kinds; do
case $k in case $k in
4) ctype="float" ; suffix="f" ;; 4) ctype="float" ; suffix="f" ;;
8) ctype="double" ; suffix="" ;; 8) ctype="double" ; suffix="" ;;
10) ctype="long double" ; suffix="l" ;; 10) ctype="long double" ; suffix="l" ; REAL_10_FOUND=1 ;;
16) ctype="long double" ; suffix="l" ;; 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 ;; *) echo "$0: Unknown type" >&2 ; exit 1 ;;
esac esac