From b18a97e5dd0935e1c4a626c230f21457d0aad3d5 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Mon, 13 Sep 2021 19:49:49 +0200 Subject: Merged current trunk to branch. --- libgfortran/ieee/ieee_arithmetic.F90 | 11 ++++++----- libgfortran/ieee/ieee_exceptions.F90 | 2 +- libgfortran/ieee/ieee_features.F90 | 2 +- libgfortran/ieee/ieee_helper.c | 2 +- 4 files changed, 9 insertions(+), 8 deletions(-) (limited to 'libgfortran/ieee') diff --git a/libgfortran/ieee/ieee_arithmetic.F90 b/libgfortran/ieee/ieee_arithmetic.F90 index 2b4d8af..35a1693 100644 --- a/libgfortran/ieee/ieee_arithmetic.F90 +++ b/libgfortran/ieee/ieee_arithmetic.F90 @@ -1,5 +1,5 @@ ! Implementation of the IEEE_ARITHMETIC standard intrinsic module -! Copyright (C) 2013-2020 Free Software Foundation, Inc. +! Copyright (C) 2013-2021 Free Software Foundation, Inc. ! Contributed by Francois-Xavier Coudert ! ! This file is part of the GNU Fortran runtime library (libgfortran). @@ -77,15 +77,16 @@ module IEEE_ARITHMETIC ! Equality operators on the derived types - interface operator (==) + ! Note, the FE overloads .eq. to == and .ne. to /= + interface operator (.eq.) module procedure IEEE_CLASS_TYPE_EQ, IEEE_ROUND_TYPE_EQ end interface - public :: operator(==) + public :: operator(.eq.) - interface operator (/=) + interface operator (.ne.) module procedure IEEE_CLASS_TYPE_NE, IEEE_ROUND_TYPE_NE end interface - public :: operator (/=) + public :: operator (.ne.) ! IEEE_IS_FINITE diff --git a/libgfortran/ieee/ieee_exceptions.F90 b/libgfortran/ieee/ieee_exceptions.F90 index 34408be..5c36314 100644 --- a/libgfortran/ieee/ieee_exceptions.F90 +++ b/libgfortran/ieee/ieee_exceptions.F90 @@ -1,5 +1,5 @@ ! Implementation of the IEEE_EXCEPTIONS standard intrinsic module -! Copyright (C) 2013-2020 Free Software Foundation, Inc. +! Copyright (C) 2013-2021 Free Software Foundation, Inc. ! Contributed by Francois-Xavier Coudert ! ! This file is part of the GNU Fortran runtime library (libgfortran). diff --git a/libgfortran/ieee/ieee_features.F90 b/libgfortran/ieee/ieee_features.F90 index 1289bfa..85e840f 100644 --- a/libgfortran/ieee/ieee_features.F90 +++ b/libgfortran/ieee/ieee_features.F90 @@ -1,5 +1,5 @@ ! Implementation of the IEEE_FEATURES standard intrinsic module -! Copyright (C) 2013-2020 Free Software Foundation, Inc. +! Copyright (C) 2013-2021 Free Software Foundation, Inc. ! Contributed by Francois-Xavier Coudert ! ! This file is part of the GNU Fortran runtime library (libgfortran). diff --git a/libgfortran/ieee/ieee_helper.c b/libgfortran/ieee/ieee_helper.c index 2ee33fb..c9236d3 100644 --- a/libgfortran/ieee/ieee_helper.c +++ b/libgfortran/ieee/ieee_helper.c @@ -1,5 +1,5 @@ /* Helper functions in C for IEEE modules - Copyright (C) 2013-2020 Free Software Foundation, Inc. + Copyright (C) 2013-2021 Free Software Foundation, Inc. Contributed by Francois-Xavier Coudert This file is part of the GNU Fortran runtime library (libgfortran). -- cgit v1.1