From patchwork Mon Jan 3 15:24:28 2022 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Thomas Koenig X-Patchwork-Id: 49477 Return-Path: X-Original-To: patchwork@sourceware.org Delivered-To: patchwork@sourceware.org Received: from server2.sourceware.org (localhost [IPv6:::1]) by sourceware.org (Postfix) with ESMTP id 7F039385842C for ; Mon, 3 Jan 2022 15:25:48 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 7F039385842C DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1641223548; bh=os2E/sQWOLqkBR2ysZpQ3yOP23106ZdjvCgvcDBmY+0=; h=To:Subject:Date:List-Id:List-Unsubscribe:List-Archive:List-Post: List-Help:List-Subscribe:From:Reply-To:From; b=ICxyZx/EC3mDmRJXzKbk0gA3OpFXknXIphCdpHpaFBxhatkYWSQJI+sIRpXBvWxI7 N+0NFdf6sSaIL4sRb4Wk0Q6vAEHoV1C2CuiT9Tl8la6VwqiAgMlTyr0V3Xe1oHfCsi mIpTPfJu0/0NSLMs06HzuiB8TaKGbeok/iIiAEnY= X-Original-To: gcc-patches@gcc.gnu.org Delivered-To: gcc-patches@gcc.gnu.org Received: from cc-smtpout3.netcologne.de (cc-smtpout3.netcologne.de [89.1.8.213]) by sourceware.org (Postfix) with ESMTPS id 5399E385841E; Mon, 3 Jan 2022 15:24:37 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 5399E385841E Received: from cc-smtpin3.netcologne.de (cc-smtpin3.netcologne.de [89.1.8.203]) by cc-smtpout3.netcologne.de (Postfix) with ESMTP id 192A81232B; Mon, 3 Jan 2022 16:24:35 +0100 (CET) Received: from [IPv6:2001:4dd7:eb03:0:7285:c2ff:fe6c:992d] (2001-4dd7-eb03-0-7285-c2ff-fe6c-992d.ipv6dyn.netcologne.de [IPv6:2001:4dd7:eb03:0:7285:c2ff:fe6c:992d]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits) key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest SHA256) (No client certificate requested) by cc-smtpin3.netcologne.de (Postfix) with ESMTPSA id 794AF11DF1; Mon, 3 Jan 2022 16:24:33 +0100 (CET) To: "fortran@gcc.gnu.org" , gcc-patches Subject: [patch, power-ieee128, committed] Make the library functions compile correctly Message-ID: Date: Mon, 3 Jan 2022 16:24:28 +0100 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101 Thunderbird/78.14.0 MIME-Version: 1.0 Content-Language: en-US X-NetCologne-Spam: L X-Rspamd-Queue-Id: 794AF11DF1 X-Spam-Status: No, score=-9.9 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, GIT_PATCH_0, KAM_SHORT, RCVD_IN_DNSWL_LOW, RCVD_IN_MSPIKE_H2, SPF_HELO_NONE, SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.4 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on server2.sourceware.org X-BeenThere: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-Patchwork-Original-From: Thomas Koenig via Gcc-patches From: Thomas Koenig Reply-To: Thomas Koenig Errors-To: gcc-patches-bounces+patchwork=sourceware.org@gcc.gnu.org Sender: "Gcc-patches" Hello world, the attached patch lets the library compile correctly, as far as I have been able to determine. Committed to the branch. Best regards Thomas Make sure the Fortran specifics have real(kind=16). This brings the library to compile with all specific functions. It also corrects the patsubst patterns so the right files get the flags. It was necessary to manually add -D__powerpc64__ because apparently this is not set for Fortran. libgfortran/ChangeLog: * Makefile.am: Correct files for compilation flags. Add -D__powerpc64__ for Fortran sources. Get kinds.inc from grep of kinds.h and kinds-override.h. * Makefile.in: Regenerate. * config.h.in: Regenerate. * configure: Regenerate. * configure.ac: Add -mno-gnu-attribute to compile flags. * generated/_abs_c17.F90: Regenerate. * generated/_abs_r17.F90: Regenerate. * generated/_acos_r17.F90: Regenerate. * generated/_acosh_r17.F90: Regenerate. * generated/_aimag_c17.F90: Regenerate. * generated/_aint_r17.F90: Regenerate. * generated/_anint_r17.F90: Regenerate. * generated/_asin_r17.F90: Regenerate. * generated/_asinh_r17.F90: Regenerate. * generated/_atan2_r17.F90: Regenerate. * generated/_atan_r17.F90: Regenerate. * generated/_atanh_r17.F90: Regenerate. * generated/_conjg_c17.F90: Regenerate. * generated/_cos_c17.F90: Regenerate. * generated/_cos_r17.F90: Regenerate. * generated/_cosh_r17.F90: Regenerate. * generated/_dim_r17.F90: Regenerate. * generated/_exp_c17.F90: Regenerate. * generated/_exp_r17.F90: Regenerate. * generated/_log10_r17.F90: Regenerate. * generated/_log_c17.F90: Regenerate. * generated/_log_r17.F90: Regenerate. * generated/_mod_r17.F90: Regenerate. * generated/_sign_r17.F90: Regenerate. * generated/_sin_c17.F90: Regenerate. * generated/_sin_r17.F90: Regenerate. * generated/_sinh_r17.F90: Regenerate. * generated/_sqrt_c17.F90: Regenerate. * generated/_sqrt_r17.F90: Regenerate. * generated/_tan_r17.F90: Regenerate. * generated/_tanh_r17.F90: Regenerate. * kinds-override.h: Adjust to trunk. Change condition to single line so it can be grepped. * m4/specific.m4: Make sure that real=kind16 is used for _r17.F90 and _c17.F90 files. * m4/specific2.m4: Likewise. * mk-kinds-h.sh: Adjust to trunk. diff --git a/libgfortran/Makefile.am b/libgfortran/Makefile.am index f3e358368cc..efc79d0d0b7 100644 --- a/libgfortran/Makefile.am +++ b/libgfortran/Makefile.am @@ -1075,15 +1075,16 @@ $(patsubst %.F90,%.lo,$(patsubst %.f90,%.lo,$(notdir $(gfor_specific_src)))): AM selected_real_kind.lo selected_int_kind.lo: AM_FCFLAGS += -fallow-leading-underscore # Build *_r17.F90 and *_c17.F90 with additional -mabi=ieeelongdouble on powerpc64le-linux. + if HAVE_REAL_17 -$(patsubst %_r17.F90,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ieeelongdouble -$(patsubst %_r17.c,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ieeelongdouble -$(patsubst %_c17.F90,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ieeelongdouble -$(patsubst %_c17.c,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ieeelongdouble -$(patsubst %_r16.F90,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ibmlongdouble -$(patsubst %_r16.c,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ibmlongdouble -$(patsubst %_c16.F90,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ibmlongdouble -$(patsubst %_c16.c,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ibmlongdouble +$(patsubst %_r16.F90,%_r16.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ibmlongdouble +$(patsubst %_c16.F90,%_c16.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ibmlongdouble +$(patsubst %_r17.F90,%_r17.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ieeelongdouble -D__powerpc64__ +$(patsubst %_c17.F90,%_c17.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ieeelongdouble -D__powerpc64__ +$(patsubst %_r16.c,%_r16.lo,$(notdir $(gfor_built_src))): AM_CFLAGS += -mabi=ibmlongdouble +$(patsubst %_c16.c,%_c16.lo,$(notdir $(gfor_built_src))): AM_CFLAGS += -mabi=ibmlongdouble +$(patsubst %_r17.c,%_r17.lo,$(notdir $(gfor_built_src))): AM_CFLAGS += -mabi=ieeelongdouble +$(patsubst %_c17.c,%_c17.lo,$(notdir $(gfor_built_src))): AM_CFLAGS += -mabi=ieeelongdouble endif if IEEE_SUPPORT @@ -1154,8 +1155,8 @@ I_M4_DEPS9=$(I_M4_DEPS) m4/ifindloc2.m4 kinds.h: $(srcdir)/mk-kinds-h.sh $(SHELL) $(srcdir)/mk-kinds-h.sh '@LIBGOMP_CHECKED_INT_KINDS@' '@LIBGOMP_CHECKED_REAL_KINDS@' '$(FCCOMPILE)' > $@ || rm $@ -kinds.inc: kinds.h - grep '^#' < kinds.h > $@ +kinds.inc: kinds.h $(srcdir)/kinds-override.h + cat kinds.h $(srcdir)/kinds-override.h | grep '^#' | grep -v include > $@ c99_protos.inc: $(srcdir)/c99_protos.h grep '^#' < $(srcdir)/c99_protos.h > $@ diff --git a/libgfortran/Makefile.in b/libgfortran/Makefile.in index a306fcbebd3..a5aeb1900d1 100644 --- a/libgfortran/Makefile.in +++ b/libgfortran/Makefile.in @@ -719,7 +719,6 @@ pdfdir = @pdfdir@ prefix = @prefix@ program_transform_name = @program_transform_name@ psdir = @psdir@ -runstatedir = @runstatedir@ sbindir = @sbindir@ sharedstatedir = @sharedstatedir@ srcdir = @srcdir@ @@ -7630,14 +7629,15 @@ $(patsubst %.F90,%.lo,$(patsubst %.f90,%.lo,$(notdir $(gfor_specific_src)))): AM selected_real_kind.lo selected_int_kind.lo: AM_FCFLAGS += -fallow-leading-underscore # Build *_r17.F90 and *_c17.F90 with additional -mabi=ieeelongdouble on powerpc64le-linux. -@HAVE_REAL_17_TRUE@$(patsubst %_r17.F90,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ieeelongdouble -@HAVE_REAL_17_TRUE@$(patsubst %_r17.c,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ieeelongdouble -@HAVE_REAL_17_TRUE@$(patsubst %_c17.F90,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ieeelongdouble -@HAVE_REAL_17_TRUE@$(patsubst %_c17.c,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ieeelongdouble -@HAVE_REAL_17_TRUE@$(patsubst %_r16.F90,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ibmlongdouble -@HAVE_REAL_17_TRUE@$(patsubst %_r16.c,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ibmlongdouble -@HAVE_REAL_17_TRUE@$(patsubst %_c16.F90,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ibmlongdouble -@HAVE_REAL_17_TRUE@$(patsubst %_c16.c,%.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ibmlongdouble + +@HAVE_REAL_17_TRUE@$(patsubst %_r16.F90,%_r16.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ibmlongdouble +@HAVE_REAL_17_TRUE@$(patsubst %_c16.F90,%_c16.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ibmlongdouble +@HAVE_REAL_17_TRUE@$(patsubst %_r17.F90,%_r17.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ieeelongdouble -D__powerpc64__ +@HAVE_REAL_17_TRUE@$(patsubst %_c17.F90,%_c17.lo,$(notdir $(gfor_specific_src))): AM_FCFLAGS += -mabi=ieeelongdouble -D__powerpc64__ +@HAVE_REAL_17_TRUE@$(patsubst %_r16.c,%_r16.lo,$(notdir $(gfor_built_src))): AM_CFLAGS += -mabi=ibmlongdouble +@HAVE_REAL_17_TRUE@$(patsubst %_c16.c,%_c16.lo,$(notdir $(gfor_built_src))): AM_CFLAGS += -mabi=ibmlongdouble +@HAVE_REAL_17_TRUE@$(patsubst %_r17.c,%_r17.lo,$(notdir $(gfor_built_src))): AM_CFLAGS += -mabi=ieeelongdouble +@HAVE_REAL_17_TRUE@$(patsubst %_c17.c,%_c17.lo,$(notdir $(gfor_built_src))): AM_CFLAGS += -mabi=ieeelongdouble # Add flags for IEEE modules @IEEE_SUPPORT_TRUE@$(patsubst %.F90,%.lo,$(notdir $(gfor_ieee_src))): AM_FCFLAGS += -Wno-unused-dummy-argument -Wno-c-binding-type -ffree-line-length-0 -fallow-leading-underscore @@ -7664,8 +7664,8 @@ ieee_arithmetic.mod: ieee_arithmetic.lo kinds.h: $(srcdir)/mk-kinds-h.sh $(SHELL) $(srcdir)/mk-kinds-h.sh '@LIBGOMP_CHECKED_INT_KINDS@' '@LIBGOMP_CHECKED_REAL_KINDS@' '$(FCCOMPILE)' > $@ || rm $@ -kinds.inc: kinds.h - grep '^#' < kinds.h > $@ +kinds.inc: kinds.h $(srcdir)/kinds-override.h + cat kinds.h $(srcdir)/kinds-override.h | grep '^#' | grep -v include > $@ c99_protos.inc: $(srcdir)/c99_protos.h grep '^#' < $(srcdir)/c99_protos.h > $@ diff --git a/libgfortran/config.h.in b/libgfortran/config.h.in index 02dcf49c49a..24e31ebd625 100644 --- a/libgfortran/config.h.in +++ b/libgfortran/config.h.in @@ -663,6 +663,9 @@ /* Define to 1 if you have the header file. */ #undef HAVE_PWD_H +/* Define to 1 if you have REAL(KIND=17) */ +#undef HAVE_REAL_17 + /* Define to 1 if you have the `round' function. */ #undef HAVE_ROUND diff --git a/libgfortran/configure b/libgfortran/configure index 845d4fec5a1..ae64dca3114 100755 --- a/libgfortran/configure +++ b/libgfortran/configure @@ -786,7 +786,6 @@ infodir docdir oldincludedir includedir -runstatedir localstatedir sharedstatedir sysconfdir @@ -878,7 +877,6 @@ datadir='${datarootdir}' sysconfdir='${prefix}/etc' sharedstatedir='${prefix}/com' localstatedir='${prefix}/var' -runstatedir='${localstatedir}/run' includedir='${prefix}/include' oldincludedir='/usr/include' docdir='${datarootdir}/doc/${PACKAGE_TARNAME}' @@ -1131,15 +1129,6 @@ do | -silent | --silent | --silen | --sile | --sil) silent=yes ;; - -runstatedir | --runstatedir | --runstatedi | --runstated \ - | --runstate | --runstat | --runsta | --runst | --runs \ - | --run | --ru | --r) - ac_prev=runstatedir ;; - -runstatedir=* | --runstatedir=* | --runstatedi=* | --runstated=* \ - | --runstate=* | --runstat=* | --runsta=* | --runst=* | --runs=* \ - | --run=* | --ru=* | --r=*) - runstatedir=$ac_optarg ;; - -sbindir | --sbindir | --sbindi | --sbind | --sbin | --sbi | --sb) ac_prev=sbindir ;; -sbindir=* | --sbindir=* | --sbindi=* | --sbind=* | --sbin=* \ @@ -1277,7 +1266,7 @@ fi for ac_var in exec_prefix prefix bindir sbindir libexecdir datarootdir \ datadir sysconfdir sharedstatedir localstatedir includedir \ oldincludedir docdir infodir htmldir dvidir pdfdir psdir \ - libdir localedir mandir runstatedir + libdir localedir mandir do eval ac_val=\$$ac_var # Remove trailing slashes. @@ -1430,7 +1419,6 @@ Fine tuning of the installation directories: --sysconfdir=DIR read-only single-machine data [PREFIX/etc] --sharedstatedir=DIR modifiable architecture-independent data [PREFIX/com] --localstatedir=DIR modifiable single-machine data [PREFIX/var] - --runstatedir=DIR modifiable per-process data [LOCALSTATEDIR/run] --libdir=DIR object code libraries [EPREFIX/lib] --includedir=DIR C header files [PREFIX/include] --oldincludedir=DIR C header files for non-gcc [/usr/include] @@ -6025,9 +6013,9 @@ main () } _ACEOF if ac_fn_c_try_cpp "$LINENO"; then : - AM_FCFLAGS="$AM_FCFLAGS -mabi=ibmlongdouble"; - AM_CFLAGS="$AM_CFLAGS -mabi=ibmlongdouble"; - CFLAGS="$CFLAGS -mabi=ibmlongdouble"; + AM_FCFLAGS="$AM_FCFLAGS -mabi=ibmlongdouble -mno-gnu-attribute"; + AM_CFLAGS="$AM_CFLAGS -mabi=ibmlongdouble -mno-gnu-attribute"; + CFLAGS="$CFLAGS -mabi=ibmlongdouble -mno-gnu-attribute"; have_real_17=yes fi rm -f conftest.err conftest.i conftest.$ac_ext @@ -12778,7 +12766,7 @@ else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF -#line 12781 "configure" +#line 12769 "configure" #include "confdefs.h" #if HAVE_DLFCN_H @@ -12884,7 +12872,7 @@ else lt_dlunknown=0; lt_dlno_uscore=1; lt_dlneed_uscore=2 lt_status=$lt_dlunknown cat > conftest.$ac_ext <<_LT_EOF -#line 12887 "configure" +#line 12875 "configure" #include "confdefs.h" #if HAVE_DLFCN_H @@ -16269,7 +16257,7 @@ else We can't simply define LARGE_OFF_T to be 9223372036854775807, since some C++ compilers masquerading as C compilers incorrectly reject 9223372036854775807. */ -#define LARGE_OFF_T ((((off_t) 1 << 31) << 31) - 1 + (((off_t) 1 << 31) << 31)) +#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62)) int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 && LARGE_OFF_T % 2147483647 == 1) ? 1 : -1]; @@ -16315,7 +16303,7 @@ else We can't simply define LARGE_OFF_T to be 9223372036854775807, since some C++ compilers masquerading as C compilers incorrectly reject 9223372036854775807. */ -#define LARGE_OFF_T ((((off_t) 1 << 31) << 31) - 1 + (((off_t) 1 << 31) << 31)) +#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62)) int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 && LARGE_OFF_T % 2147483647 == 1) ? 1 : -1]; @@ -16339,7 +16327,7 @@ rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext We can't simply define LARGE_OFF_T to be 9223372036854775807, since some C++ compilers masquerading as C compilers incorrectly reject 9223372036854775807. */ -#define LARGE_OFF_T ((((off_t) 1 << 31) << 31) - 1 + (((off_t) 1 << 31) << 31)) +#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62)) int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 && LARGE_OFF_T % 2147483647 == 1) ? 1 : -1]; @@ -16384,7 +16372,7 @@ else We can't simply define LARGE_OFF_T to be 9223372036854775807, since some C++ compilers masquerading as C compilers incorrectly reject 9223372036854775807. */ -#define LARGE_OFF_T ((((off_t) 1 << 31) << 31) - 1 + (((off_t) 1 << 31) << 31)) +#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62)) int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 && LARGE_OFF_T % 2147483647 == 1) ? 1 : -1]; @@ -16408,7 +16396,7 @@ rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext We can't simply define LARGE_OFF_T to be 9223372036854775807, since some C++ compilers masquerading as C compilers incorrectly reject 9223372036854775807. */ -#define LARGE_OFF_T ((((off_t) 1 << 31) << 31) - 1 + (((off_t) 1 << 31) << 31)) +#define LARGE_OFF_T (((off_t) 1 << 62) - 1 + ((off_t) 1 << 62)) int off_t_is_large[(LARGE_OFF_T % 2147483629 == 721 && LARGE_OFF_T % 2147483647 == 1) ? 1 : -1]; @@ -25850,6 +25838,12 @@ _ACEOF if test "x$have_real_17" = "xyes"; then +cat >>confdefs.h <<_ACEOF +#define HAVE_REAL_17 1 +_ACEOF + + + { $as_echo "$as_me:${as_lineno-$LINENO}: checking for __acoshieee128" >&5 diff --git a/libgfortran/configure.ac b/libgfortran/configure.ac index 39f38bac4ba..97cc490cb5e 100644 --- a/libgfortran/configure.ac +++ b/libgfortran/configure.ac @@ -163,9 +163,9 @@ if test "x$GCC" = "xyes"; then #error long double is double #endif]], [[(void) 0;]])], - [AM_FCFLAGS="$AM_FCFLAGS -mabi=ibmlongdouble"; - AM_CFLAGS="$AM_CFLAGS -mabi=ibmlongdouble"; - CFLAGS="$CFLAGS -mabi=ibmlongdouble"; + [AM_FCFLAGS="$AM_FCFLAGS -mabi=ibmlongdouble -mno-gnu-attribute"; + AM_CFLAGS="$AM_CFLAGS -mabi=ibmlongdouble -mno-gnu-attribute"; + CFLAGS="$CFLAGS -mabi=ibmlongdouble -mno-gnu-attribute"; have_real_17=yes]) ;; *) @@ -547,6 +547,9 @@ GCC_CHECK_MATH_FUNC([catanl]) # For POWER, check the ieee128 math functions if test "x$have_real_17" = "xyes"; then +AC_DEFINE_UNQUOTED(AS_TR_CPP(HAVE_REAL_17),[1], + [Define to 1 if you have REAL(KIND=17)]) + LIBGFOR_CHECK_MATH_IEEE128([__acoshieee128]) LIBGFOR_CHECK_MATH_IEEE128([__acosieee128]) LIBGFOR_CHECK_MATH_IEEE128([__asinhieee128]) diff --git a/libgfortran/generated/_abs_c17.F90 b/libgfortran/generated/_abs_c17.F90 index f4afb78dd0b..b85ecae1fcb 100644 --- a/libgfortran/generated/_abs_c17.F90 +++ b/libgfortran/generated/_abs_c17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_COMPLEX_17) -#ifdef HAVE_CABS_17 +#ifdef HAVE_CABSL elemental function _gfortran_specific__abs_c17 (parm) - complex (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__abs_c17 + complex (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__abs_c17 _gfortran_specific__abs_c17 = abs (parm) end function diff --git a/libgfortran/generated/_abs_r17.F90 b/libgfortran/generated/_abs_r17.F90 index 9354f013c04..91ce3649efa 100644 --- a/libgfortran/generated/_abs_r17.F90 +++ b/libgfortran/generated/_abs_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_FABS_17 +#ifdef HAVE_FABSL elemental function _gfortran_specific__abs_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__abs_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__abs_r17 _gfortran_specific__abs_r17 = abs (parm) end function diff --git a/libgfortran/generated/_acos_r17.F90 b/libgfortran/generated/_acos_r17.F90 index cfd35906200..92edb5e7e2e 100644 --- a/libgfortran/generated/_acos_r17.F90 +++ b/libgfortran/generated/_acos_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_ACOS_17 +#ifdef HAVE_ACOSL elemental function _gfortran_specific__acos_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__acos_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__acos_r17 _gfortran_specific__acos_r17 = acos (parm) end function diff --git a/libgfortran/generated/_acosh_r17.F90 b/libgfortran/generated/_acosh_r17.F90 index 56fc1defbcf..0ded7e83a03 100644 --- a/libgfortran/generated/_acosh_r17.F90 +++ b/libgfortran/generated/_acosh_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_ACOSH_17 +#ifdef HAVE_ACOSHL elemental function _gfortran_specific__acosh_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__acosh_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__acosh_r17 _gfortran_specific__acosh_r17 = acosh (parm) end function diff --git a/libgfortran/generated/_aimag_c17.F90 b/libgfortran/generated/_aimag_c17.F90 index db53f79409f..1d6fa978726 100644 --- a/libgfortran/generated/_aimag_c17.F90 +++ b/libgfortran/generated/_aimag_c17.F90 @@ -36,8 +36,8 @@ elemental function _gfortran_specific__aimag_c17 (parm) - complex (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__aimag_c17 + complex (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__aimag_c17 _gfortran_specific__aimag_c17 = aimag (parm) end function diff --git a/libgfortran/generated/_aint_r17.F90 b/libgfortran/generated/_aint_r17.F90 index f981090533f..a7be4813d18 100644 --- a/libgfortran/generated/_aint_r17.F90 +++ b/libgfortran/generated/_aint_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_TRUNC_17 +#ifdef HAVE_TRUNCL elemental function _gfortran_specific__aint_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__aint_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__aint_r17 _gfortran_specific__aint_r17 = aint (parm) end function diff --git a/libgfortran/generated/_anint_r17.F90 b/libgfortran/generated/_anint_r17.F90 index 73e24c6fa1b..eef826dd125 100644 --- a/libgfortran/generated/_anint_r17.F90 +++ b/libgfortran/generated/_anint_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_ROUND_17 +#ifdef HAVE_ROUNDL elemental function _gfortran_specific__anint_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__anint_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__anint_r17 _gfortran_specific__anint_r17 = anint (parm) end function diff --git a/libgfortran/generated/_asin_r17.F90 b/libgfortran/generated/_asin_r17.F90 index cb036647b06..a8573b3223b 100644 --- a/libgfortran/generated/_asin_r17.F90 +++ b/libgfortran/generated/_asin_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_ASIN_17 +#ifdef HAVE_ASINL elemental function _gfortran_specific__asin_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__asin_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__asin_r17 _gfortran_specific__asin_r17 = asin (parm) end function diff --git a/libgfortran/generated/_asinh_r17.F90 b/libgfortran/generated/_asinh_r17.F90 index c0c54d42dbf..47858ea9b62 100644 --- a/libgfortran/generated/_asinh_r17.F90 +++ b/libgfortran/generated/_asinh_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_ASINH_17 +#ifdef HAVE_ASINHL elemental function _gfortran_specific__asinh_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__asinh_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__asinh_r17 _gfortran_specific__asinh_r17 = asinh (parm) end function diff --git a/libgfortran/generated/_atan2_r17.F90 b/libgfortran/generated/_atan2_r17.F90 index aa087888b69..780cfeaf09c 100644 --- a/libgfortran/generated/_atan2_r17.F90 +++ b/libgfortran/generated/_atan2_r17.F90 @@ -32,11 +32,11 @@ #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_ATAN2_17 +#ifdef HAVE_ATAN2L elemental function _gfortran_specific__atan2_r17 (p1, p2) - real (kind=17), intent (in) :: p1, p2 - real (kind=17) :: _gfortran_specific__atan2_r17 + real (kind=16), intent (in) :: p1, p2 + real (kind=16) :: _gfortran_specific__atan2_r17 _gfortran_specific__atan2_r17 = atan2 (p1, p2) end function diff --git a/libgfortran/generated/_atan_r17.F90 b/libgfortran/generated/_atan_r17.F90 index 0b28316218b..d1bd37b021a 100644 --- a/libgfortran/generated/_atan_r17.F90 +++ b/libgfortran/generated/_atan_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_ATAN_17 +#ifdef HAVE_ATANL elemental function _gfortran_specific__atan_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__atan_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__atan_r17 _gfortran_specific__atan_r17 = atan (parm) end function diff --git a/libgfortran/generated/_atanh_r17.F90 b/libgfortran/generated/_atanh_r17.F90 index 812e8ff5006..15209685dda 100644 --- a/libgfortran/generated/_atanh_r17.F90 +++ b/libgfortran/generated/_atanh_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_ATANH_17 +#ifdef HAVE_ATANHL elemental function _gfortran_specific__atanh_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__atanh_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__atanh_r17 _gfortran_specific__atanh_r17 = atanh (parm) end function diff --git a/libgfortran/generated/_conjg_c17.F90 b/libgfortran/generated/_conjg_c17.F90 index 06dcffb331f..65f54c8d1a4 100644 --- a/libgfortran/generated/_conjg_c17.F90 +++ b/libgfortran/generated/_conjg_c17.F90 @@ -36,8 +36,8 @@ elemental function _gfortran_specific__conjg_17 (parm) - complex (kind=17), intent (in) :: parm - complex (kind=17) :: _gfortran_specific__conjg_17 + complex (kind=16), intent (in) :: parm + complex (kind=16) :: _gfortran_specific__conjg_17 _gfortran_specific__conjg_17 = conjg (parm) end function diff --git a/libgfortran/generated/_cos_c17.F90 b/libgfortran/generated/_cos_c17.F90 index 17a81557528..c056731e22d 100644 --- a/libgfortran/generated/_cos_c17.F90 +++ b/libgfortran/generated/_cos_c17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_COMPLEX_17) -#ifdef HAVE_CCOS_17 +#ifdef HAVE_CCOSL elemental function _gfortran_specific__cos_c17 (parm) - complex (kind=17), intent (in) :: parm - complex (kind=17) :: _gfortran_specific__cos_c17 + complex (kind=16), intent (in) :: parm + complex (kind=16) :: _gfortran_specific__cos_c17 _gfortran_specific__cos_c17 = cos (parm) end function diff --git a/libgfortran/generated/_cos_r17.F90 b/libgfortran/generated/_cos_r17.F90 index 5be6b5d55ae..c1fda03dd25 100644 --- a/libgfortran/generated/_cos_r17.F90 +++ b/libgfortran/generated/_cos_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_COS_17 +#ifdef HAVE_COSL elemental function _gfortran_specific__cos_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__cos_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__cos_r17 _gfortran_specific__cos_r17 = cos (parm) end function diff --git a/libgfortran/generated/_cosh_r17.F90 b/libgfortran/generated/_cosh_r17.F90 index 0572accc910..b7724b00b54 100644 --- a/libgfortran/generated/_cosh_r17.F90 +++ b/libgfortran/generated/_cosh_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_COSH_17 +#ifdef HAVE_COSHL elemental function _gfortran_specific__cosh_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__cosh_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__cosh_r17 _gfortran_specific__cosh_r17 = cosh (parm) end function diff --git a/libgfortran/generated/_dim_r17.F90 b/libgfortran/generated/_dim_r17.F90 index b6f8d0612a5..fac19410c97 100644 --- a/libgfortran/generated/_dim_r17.F90 +++ b/libgfortran/generated/_dim_r17.F90 @@ -35,8 +35,8 @@ elemental function _gfortran_specific__dim_r17 (p1, p2) - real (kind=17), intent (in) :: p1, p2 - real (kind=17) :: _gfortran_specific__dim_r17 + real (kind=16), intent (in) :: p1, p2 + real (kind=16) :: _gfortran_specific__dim_r17 _gfortran_specific__dim_r17 = dim (p1, p2) end function diff --git a/libgfortran/generated/_exp_c17.F90 b/libgfortran/generated/_exp_c17.F90 index c5e04e5d1bd..45376812b10 100644 --- a/libgfortran/generated/_exp_c17.F90 +++ b/libgfortran/generated/_exp_c17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_COMPLEX_17) -#ifdef HAVE_CEXP_17 +#ifdef HAVE_CEXPL elemental function _gfortran_specific__exp_c17 (parm) - complex (kind=17), intent (in) :: parm - complex (kind=17) :: _gfortran_specific__exp_c17 + complex (kind=16), intent (in) :: parm + complex (kind=16) :: _gfortran_specific__exp_c17 _gfortran_specific__exp_c17 = exp (parm) end function diff --git a/libgfortran/generated/_exp_r17.F90 b/libgfortran/generated/_exp_r17.F90 index 38b3c6c8e0d..7f186205122 100644 --- a/libgfortran/generated/_exp_r17.F90 +++ b/libgfortran/generated/_exp_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_EXP_17 +#ifdef HAVE_EXPL elemental function _gfortran_specific__exp_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__exp_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__exp_r17 _gfortran_specific__exp_r17 = exp (parm) end function diff --git a/libgfortran/generated/_log10_r17.F90 b/libgfortran/generated/_log10_r17.F90 index e5a65cf7e6e..6abd9f188be 100644 --- a/libgfortran/generated/_log10_r17.F90 +++ b/libgfortran/generated/_log10_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_LOG10_17 +#ifdef HAVE_LOG10L elemental function _gfortran_specific__log10_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__log10_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__log10_r17 _gfortran_specific__log10_r17 = log10 (parm) end function diff --git a/libgfortran/generated/_log_c17.F90 b/libgfortran/generated/_log_c17.F90 index 8bb50a23420..4b3ebd903af 100644 --- a/libgfortran/generated/_log_c17.F90 +++ b/libgfortran/generated/_log_c17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_COMPLEX_17) -#ifdef HAVE_CLOG_17 +#ifdef HAVE_CLOGL elemental function _gfortran_specific__log_c17 (parm) - complex (kind=17), intent (in) :: parm - complex (kind=17) :: _gfortran_specific__log_c17 + complex (kind=16), intent (in) :: parm + complex (kind=16) :: _gfortran_specific__log_c17 _gfortran_specific__log_c17 = log (parm) end function diff --git a/libgfortran/generated/_log_r17.F90 b/libgfortran/generated/_log_r17.F90 index 4ad62de9421..579f7f30582 100644 --- a/libgfortran/generated/_log_r17.F90 +++ b/libgfortran/generated/_log_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_LOG_17 +#ifdef HAVE_LOGL elemental function _gfortran_specific__log_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__log_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__log_r17 _gfortran_specific__log_r17 = log (parm) end function diff --git a/libgfortran/generated/_mod_r17.F90 b/libgfortran/generated/_mod_r17.F90 index fb487dcedcc..62f7f91b919 100644 --- a/libgfortran/generated/_mod_r17.F90 +++ b/libgfortran/generated/_mod_r17.F90 @@ -35,8 +35,8 @@ elemental function _gfortran_specific__mod_r17 (p1, p2) - real (kind=17), intent (in) :: p1, p2 - real (kind=17) :: _gfortran_specific__mod_r17 + real (kind=16), intent (in) :: p1, p2 + real (kind=16) :: _gfortran_specific__mod_r17 _gfortran_specific__mod_r17 = mod (p1, p2) end function diff --git a/libgfortran/generated/_sign_r17.F90 b/libgfortran/generated/_sign_r17.F90 index beb0d17816d..b36233433c4 100644 --- a/libgfortran/generated/_sign_r17.F90 +++ b/libgfortran/generated/_sign_r17.F90 @@ -35,8 +35,8 @@ elemental function _gfortran_specific__sign_r17 (p1, p2) - real (kind=17), intent (in) :: p1, p2 - real (kind=17) :: _gfortran_specific__sign_r17 + real (kind=16), intent (in) :: p1, p2 + real (kind=16) :: _gfortran_specific__sign_r17 _gfortran_specific__sign_r17 = sign (p1, p2) end function diff --git a/libgfortran/generated/_sin_c17.F90 b/libgfortran/generated/_sin_c17.F90 index 95245305eb5..8de584fd801 100644 --- a/libgfortran/generated/_sin_c17.F90 +++ b/libgfortran/generated/_sin_c17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_COMPLEX_17) -#ifdef HAVE_CSIN_17 +#ifdef HAVE_CSINL elemental function _gfortran_specific__sin_c17 (parm) - complex (kind=17), intent (in) :: parm - complex (kind=17) :: _gfortran_specific__sin_c17 + complex (kind=16), intent (in) :: parm + complex (kind=16) :: _gfortran_specific__sin_c17 _gfortran_specific__sin_c17 = sin (parm) end function diff --git a/libgfortran/generated/_sin_r17.F90 b/libgfortran/generated/_sin_r17.F90 index 76810a410ad..ebb8d02dfea 100644 --- a/libgfortran/generated/_sin_r17.F90 +++ b/libgfortran/generated/_sin_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_SIN_17 +#ifdef HAVE_SINL elemental function _gfortran_specific__sin_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__sin_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__sin_r17 _gfortran_specific__sin_r17 = sin (parm) end function diff --git a/libgfortran/generated/_sinh_r17.F90 b/libgfortran/generated/_sinh_r17.F90 index e864d28ed36..f617c078cfd 100644 --- a/libgfortran/generated/_sinh_r17.F90 +++ b/libgfortran/generated/_sinh_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_SINH_17 +#ifdef HAVE_SINHL elemental function _gfortran_specific__sinh_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__sinh_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__sinh_r17 _gfortran_specific__sinh_r17 = sinh (parm) end function diff --git a/libgfortran/generated/_sqrt_c17.F90 b/libgfortran/generated/_sqrt_c17.F90 index b2c2a329ab0..e0ca1179830 100644 --- a/libgfortran/generated/_sqrt_c17.F90 +++ b/libgfortran/generated/_sqrt_c17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_COMPLEX_17) -#ifdef HAVE_CSQRT_17 +#ifdef HAVE_CSQRTL elemental function _gfortran_specific__sqrt_c17 (parm) - complex (kind=17), intent (in) :: parm - complex (kind=17) :: _gfortran_specific__sqrt_c17 + complex (kind=16), intent (in) :: parm + complex (kind=16) :: _gfortran_specific__sqrt_c17 _gfortran_specific__sqrt_c17 = sqrt (parm) end function diff --git a/libgfortran/generated/_sqrt_r17.F90 b/libgfortran/generated/_sqrt_r17.F90 index 9052d80d467..01da3e5c2b6 100644 --- a/libgfortran/generated/_sqrt_r17.F90 +++ b/libgfortran/generated/_sqrt_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_SQRT_17 +#ifdef HAVE_SQRTL elemental function _gfortran_specific__sqrt_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__sqrt_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__sqrt_r17 _gfortran_specific__sqrt_r17 = sqrt (parm) end function diff --git a/libgfortran/generated/_tan_r17.F90 b/libgfortran/generated/_tan_r17.F90 index eac29453c20..b9124881fd6 100644 --- a/libgfortran/generated/_tan_r17.F90 +++ b/libgfortran/generated/_tan_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_TAN_17 +#ifdef HAVE_TANL elemental function _gfortran_specific__tan_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__tan_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__tan_r17 _gfortran_specific__tan_r17 = tan (parm) end function diff --git a/libgfortran/generated/_tanh_r17.F90 b/libgfortran/generated/_tanh_r17.F90 index 0d4c020c69c..553ad9175c6 100644 --- a/libgfortran/generated/_tanh_r17.F90 +++ b/libgfortran/generated/_tanh_r17.F90 @@ -33,11 +33,11 @@ #include "c99_protos.inc" #if defined (HAVE_GFC_REAL_17) -#ifdef HAVE_TANH_17 +#ifdef HAVE_TANHL elemental function _gfortran_specific__tanh_r17 (parm) - real (kind=17), intent (in) :: parm - real (kind=17) :: _gfortran_specific__tanh_r17 + real (kind=16), intent (in) :: parm + real (kind=16) :: _gfortran_specific__tanh_r17 _gfortran_specific__tanh_r17 = tanh (parm) end function diff --git a/libgfortran/kinds-override.h b/libgfortran/kinds-override.h index 344c596b005..673e9d5dccd 100644 --- a/libgfortran/kinds-override.h +++ b/libgfortran/kinds-override.h @@ -23,31 +23,14 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see . */ -/* What are the C types corresponding to the real(kind=10) and - real(kind=16) types? We currently rely on the following assumptions: - -- if real(kind=10) exists, i.e. if HAVE_GFC_REAL_10 is defined, - then it is necessarily the "long double" type - -- if real(kind=16) exists, then: - * if HAVE_GFC_REAL_10, real(kind=16) is "__float128" - * otherwise, real(kind=16) is "long double" - To allow to change this in the future, we create the - GFC_REAL_16_IS_FLOAT128 macro that is used throughout libgfortran. */ - -#if defined(HAVE_GFC_REAL_16) -# if defined(HAVE_GFC_REAL_10) -# define GFC_REAL_16_IS_FLOAT128 -# if !defined(HAVE_FLOAT128) -# error "Where has __float128 gone?" -# endif -# else -# define GFC_REAL_16_IS_LONG_DOUBLE -# endif +/* Ensure that TFmode is available under. */ + +#if defined(GFC_REAL_16_IS_FLOAT128) && !defined(HAVE_FLOAT128) +# error "Where has __float128 gone?" #endif -#if defined(__powerpc64__) \ - && __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__ \ - && __SIZEOF_LONG_DOUBLE__ == 16 \ - && defined(GFC_REAL_16_IS_LONG_DOUBLE) +/* Keep these conditions on one line so grep can filter it out. */ +#if defined(__powerpc64__) && __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__ && __SIZEOF_LONG_DOUBLE__ == 16 typedef __float128 GFC_REAL_17; typedef _Complex float __attribute__((mode(KC))) GFC_COMPLEX_17; #define HAVE_GFC_REAL_17 diff --git a/libgfortran/m4/specific.m4 b/libgfortran/m4/specific.m4 index ebc89839ad4..75d916e5855 100644 --- a/libgfortran/m4/specific.m4 +++ b/libgfortran/m4/specific.m4 @@ -4,13 +4,28 @@ define(atype_letter,substr(atype_code, 0, 1))dnl define(atype_kind,substr(atype_code, 1))dnl define(get_typename2, `$1 (kind=$2)')dnl define(get_typename, `get_typename2(ifelse($1,i,integer,ifelse($1,r,real,ifelse($1,l,logical,ifelse($1,c,complex,unknown)))),`$2')')dnl -define(atype_name, get_typename(atype_letter,atype_kind))dnl +dnl +dnl KIND=17 is special: This is just a naming convention +dnl in the library, for Fortran source code KIND=16 is needed +dnl +define(name_kind, ifelse(atype_kind,17,16,atype_kind))dnl +define(atype_name, get_typename(atype_letter,name_kind))dnl define(name, regexp(regexp(file, `[^/]*$', `\&'), `^_\([^_]*\)_', `\1'))dnl -define(rtype_name,get_typename(ifelse(name,abs,ifelse(atype_letter,c,r,atype_letter),ifelse(name,aimag,ifelse(atype_letter,c,r,atype_letter),atype_letter)),atype_kind))dnl -define(function_name,ifelse(name,conjg,`_gfortran_specific__conjg_'atype_kind,`_gfortran_specific__'name`_'atype_code))dnl +define(rtype_name,get_typename(ifelse(name,abs,ifelse(atype_letter,c,r,atype_letter),ifelse(name,aimag,ifelse(atype_letter,c,r,atype_letter),atype_letter)),name_kind))dnl +define(function_name,dnl +ifelse(name,conjg,`_gfortran_specific__conjg_'atype_kind,`_gfortran_specific__'name`_'atype_code))dnl -define(type,ifelse(atype_letter,l,LOGICAL,ifelse(atype_letter,i,INTEGER,ifelse(atype_letter,r,REAL,ifelse(atype_letter,c,COMPLEX,UNKNOW)))))dnl -define(Q,ifelse(atype_kind,4,F,ifelse(atype_kind,8,`',ifelse(atype_kind,10,L,ifelse(atype_kind,16,L,`_'atype_kind)))))dnl +define(type,dnl +ifelse(atype_letter,l,LOGICAL,dnl +ifelse(atype_letter,i,INTEGER,dnl +ifelse(atype_letter,r,REAL,dnl +ifelse(atype_letter,c,COMPLEX,UNKNOW)))))dnl +define(Q,ifelse(atype_kind,4,F, +ifelse(atype_kind,8,`', +ifelse(atype_kind,10,L, +ifelse(atype_kind,16,L, +ifelse(atype_kind,17,L, +`_'atype_kind))))))dnl dnl A few specifics require a function other than their name, or dnl nothing. The list is currently: @@ -18,7 +33,16 @@ dnl - integer and logical specifics require no libm function dnl - AINT requires the trunc() family functions dnl - ANINT requires round() dnl - AIMAG, CONJG, DIM, SIGN require no libm function -define(needed,ifelse(atype_letter,i,`none',ifelse(atype_letter,l,`none',ifelse(name,aint,trunc,ifelse(name,anint,round,ifelse(name,aimag,none,ifelse(name,conjg,none,ifelse(name,dim,none,ifelse(name,sign,none,ifelse(name,abs,fabs,name))))))))))dnl +define(needed,dnl +ifelse(atype_letter,i,`none',dnl +ifelse(atype_letter,l,`none',dnl +ifelse(name,aint,trunc,dnl +ifelse(name,anint,round,dnl +ifelse(name,aimag,none,dnl +ifelse(name,conjg,none,dnl +ifelse(name,dim,none,dnl +ifelse(name,sign,none,dnl +ifelse(name,abs,fabs,name))))))))))dnl define(prefix,ifelse(atype_letter,c,C,`'))dnl dnl Special case for fabs, for which the corresponding complex function diff --git a/libgfortran/m4/specific2.m4 b/libgfortran/m4/specific2.m4 index d05e8db1435..27b9c913af6 100644 --- a/libgfortran/m4/specific2.m4 +++ b/libgfortran/m4/specific2.m4 @@ -4,11 +4,18 @@ define(atype_letter,substr(atype_code, 0, 1))dnl define(atype_kind,substr(atype_code, 1))dnl define(get_typename2, `$1 (kind=$2)')dnl define(get_typename, `get_typename2(ifelse($1,i,integer,ifelse($1,r,real,ifelse($1,l,logical,ifelse($1,c,complex,unknown)))),`$2')')dnl -define(atype_name, get_typename(atype_letter,atype_kind))dnl +define(name_kind, ifelse(atype_kind,17,16,atype_kind))dnl +define(atype_name, get_typename(atype_letter,name_kind))dnl define(name, regexp(regexp(file, `[^/]*$', `\&'), `^_\([^_]*\)_', `\1'))dnl define(function_name,`_gfortran_specific__'name`_'atype_code)dnl -define(Q,ifelse(atype_kind,4,F,ifelse(atype_kind,8,`',ifelse(atype_kind,10,L,ifelse(atype_kind,16,L,`_'atype_kind)))))dnl +define(Q,dnl +ifelse(atype_kind,4,F,dnl +ifelse(atype_kind,8,`',dnl +ifelse(atype_kind,10,L,dnl +ifelse(atype_kind,16,L,dnl +ifelse(atype_kind,17,L,dnl +`_'atype_kind))))))dnl #include "config.h" #include "kinds.inc" diff --git a/libgfortran/mk-kinds-h.sh b/libgfortran/mk-kinds-h.sh index 249619061c6..572878ce891 100755 --- a/libgfortran/mk-kinds-h.sh +++ b/libgfortran/mk-kinds-h.sh @@ -64,15 +64,19 @@ for k in $possible_real_kinds; do case $k in 4) ctype="float" ; cplxtype="complex float" ; suffix="f" ;; 8) ctype="double" ; cplxtype="complex double" ; suffix="" ;; + # If we have a REAL(KIND=10), it is always long double 10) ctype="long double" ; cplxtype="complex long double" ; suffix="l" ;; - 16) if [ $long_double_kind -eq 10 ]; then + # If we have a REAL(KIND=16), it is either long double or __float128 + 16) if [ $long_double_kind -ne 16 ]; then ctype="__float128" cplxtype="_Complex float __attribute__((mode(TC)))" suffix="q" + echo "#define GFC_REAL_16_IS_FLOAT128" else ctype="long double" cplxtype="complex long double" suffix="l" + echo "#define GFC_REAL_16_IS_LONG_DOUBLE" fi ;; *) echo "$0: Unknown type" >&2 ; exit 1 ;; esac