From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 8084 invoked by alias); 27 Aug 2010 21:24:41 -0000 Received: (qmail 8023 invoked by alias); 27 Aug 2010 21:24:30 -0000 Date: Fri, 27 Aug 2010 21:24:00 -0000 Message-ID: <20100827212430.8022.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/32049] Support on x86_64 also kind=16 In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "fxcoudert at gcc dot gnu dot org" 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: 2010-08/txt/msg02282.txt.bz2 ------- Comment #8 from fxcoudert at gcc dot gnu dot org 2010-08-27 21:24 ------- Subject: Bug 32049 Author: fxcoudert Date: Fri Aug 27 21:24:13 2010 New Revision: 163597 URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=163597 Log: PR fortran/32049 * gfortran.h (gfc_real_info): Add c_float128 field. * mathbuiltins.def: Indicate which builtins are const. * trans-types.h (float128_type_node, complex_float128_type_node, gfc_real16_is_float128): New variables. * trans-types.c (float128_type_node, complex_float128_type_node, gfc_real16_is_float128): New variables. (gfc_init_kinds): Allow TFmode. (gfc_build_real_type): Mark __float128 types as such. (gfc_init_types): Initialize float128_type_node and complex_float128_type_node * f95-lang.c (gfc_init_builtin_functions): Adjust for new argument of OTHER_BUILTIN macro. * trans-intrinsic.c (gfc_intrinsic_map_t): Likewise. (builtin_decl_for_precision): Special case for __float128. (builtin_decl_for_float_kind): Likewise. (define_quad_builtin): New function. (gfc_build_intrinsic_lib_fndecls): Create all __float128 library decls if necessary. Store them in the real16_decl and complex16_decl builtin map fields. (gfc_get_intrinsic_lib_fndecl): Handle q-suffixed __float128 library function names. * gfortran.dg/random_seed_1.f90: Adjust test. * gfortran.dg/float128_1.f90: New test. Added: trunk/gcc/testsuite/gfortran.dg/float128_1.f90 Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/f95-lang.c trunk/gcc/fortran/gfortran.h trunk/gcc/fortran/mathbuiltins.def trunk/gcc/fortran/trans-intrinsic.c trunk/gcc/fortran/trans-types.c trunk/gcc/fortran/trans-types.h trunk/gcc/testsuite/ChangeLog trunk/gcc/testsuite/gfortran.dg/random_seed_1.f90 -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32049