From patchwork Sat Aug 28 07:36:39 2010
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
X-Patchwork-Submitter: Tobias Burnus <burnus@net-b.de>
X-Patchwork-Id: 62896
Return-Path: 
 <gcc-patches-return-271480-incoming=patchwork.ozlabs.org@gcc.gnu.org>
X-Original-To: incoming@patchwork.ozlabs.org
Delivered-To: patchwork-incoming@bilbo.ozlabs.org
Received: from sourceware.org (server1.sourceware.org [209.132.180.131])
	by ozlabs.org (Postfix) with SMTP id ADFC3B711A
	for <incoming@patchwork.ozlabs.org>;
	Sat, 28 Aug 2010 17:36:54 +1000 (EST)
Received: (qmail 32636 invoked by alias); 28 Aug 2010 07:36:49 -0000
Received: (qmail 32617 invoked by uid 22791); 28 Aug 2010 07:36:48 -0000
X-SWARE-Spam-Status: No, hits=-1.8 required=5.0	tests=AWL, BAYES_00,
	RCVD_IN_DNSWL_NONE, TW_BG
X-Spam-Check-By: sourceware.org
Received: from mx02.qsc.de (HELO mx02.qsc.de) (213.148.130.14) by
	sourceware.org (qpsmtpd/0.43rc1) with ESMTP;
	Sat, 28 Aug 2010 07:36:43 +0000
Received: from [192.168.178.22] (port-92-204-46-222.dynamic.qsc.de
	[92.204.46.222])	by mx02.qsc.de (Postfix) with ESMTP id
	EC5991E794; Sat, 28 Aug 2010 09:36:40 +0200 (CEST)
Message-ID: <4C78BC87.8010302@net-b.de>
Date: Sat, 28 Aug 2010 09:36:39 +0200
From: Tobias Burnus <burnus@net-b.de>
User-Agent: Mozilla/5.0 (X11; U; Linux x86_64; de;
	rv:1.9.2.7) Gecko/20100714 SUSE/3.1.1 Thunderbird/3.1.1
MIME-Version: 1.0
To: gfortran <fortran@gcc.gnu.org>, gcc patches <gcc-patches@gcc.gnu.org>
Subject: [Patch, libgfortran/bootstrap,
	committed] Disable REAL(16) in libgfortran if REAL(10) is available
Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm
Precedence: bulk
List-Id: <gcc-patches.gcc.gnu.org>
List-Unsubscribe: 
 <mailto:gcc-patches-unsubscribe-incoming=patchwork.ozlabs.org@gcc.gnu.org>
List-Archive: <http://gcc.gnu.org/ml/gcc-patches/>
List-Post: <mailto:gcc-patches@gcc.gnu.org>
List-Help: <mailto:gcc-patches-help@gcc.gnu.org>
Sender: gcc-patches-owner@gcc.gnu.org
Delivered-To: mailing list gcc-patches@gcc.gnu.org

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