From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 14544 invoked by alias); 7 Dec 2009 14:56:03 -0000 Received: (qmail 14480 invoked by uid 48); 7 Dec 2009 14:55:47 -0000 Date: Mon, 07 Dec 2009 14:56:00 -0000 Message-ID: <20091207145547.14479.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug libfortran/41711] [F2008] BOZ format does not support reading large kind reals In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "dominiq at lps dot ens dot fr" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2009-12/txt/msg00685.txt.bz2 ------- Comment #22 from dominiq at lps dot ens dot fr 2009-12-07 14:55 ------- (In reply to comment #21) > ... > real(10) :: r10 > ... This does work on platforms that do not support real(10), but have real(16). Something such as: integer,parameter :: k8 = selected_real_kind (precision (0.0d0)) integer,parameter :: k = max(k8,selected_real_kind (precision (0.0d0) + 1)) ... real(k) rk ... allows the test to pass on these platforms (see commet #9). -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41711