This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[Patch,libgfortran/bootstrap,committed] Disable REAL(16) in libgfortran if REAL(10) is available
- From: Tobias Burnus <burnus at net-b dot de>
- To: gfortran <fortran at gcc dot gnu dot org>, gcc patches <gcc-patches at gcc dot gnu dot org>
- Date: Sat, 28 Aug 2010 09:36:39 +0200
- Subject: [Patch,libgfortran/bootstrap,committed] Disable REAL(16) in libgfortran if REAL(10) is available
Committed as obvious (Rev. 163612).
Tobias
Index: libgfortran/ChangeLog
===================================================================
--- libgfortran/ChangeLog (Revision 163610)
+++ libgfortran/ChangeLog (Arbeitskopie)
@@ -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
Index: libgfortran/mk-kinds-h.sh
===================================================================
--- libgfortran/mk-kinds-h.sh (Revision 163610)
+++ libgfortran/mk-kinds-h.sh (Arbeitskopie)
@@ -44,6 +44,7 @@
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 @@
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