Fixes #452 - missing REAL80 procedure

Goddard-Fortran-Ecosystem · Feb 20, 2024 · 1238c82 · 1238c82
1 parent 49a83b1
commit 1238c82
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/ChangeLog.md b/ChangeLog.md
@@ -5,6 +5,10 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## [Unreleased]
 
+### Fixed
+
+- Missing implementation of `assertIsFinite_real80()`.  Apparently undetected until recent attempt to port to flang.
+
 ## [4.8.0] -2023-11-29
 
 ### Changed

diff --git a/src/funit/asserts/AssertBasic.F90 b/src/funit/asserts/AssertBasic.F90
@@ -814,6 +814,18 @@ subroutine assertIsFinite_real64(x, message, location)
    end subroutine assertIsFinite_real64
 #endif
 
+#ifdef _REAL80_IEEE_SUPPORT
+   subroutine assertIsFinite_real80(x, message, location)
+      use, intrinsic :: ieee_arithmetic, only: ieee_is_finite
+      real(kind=REAL80), intent(in) :: x
+      character(len=*), optional, intent(in) :: message
+      type (SourceLocation), optional, intent(in) :: location
+
+      call assertTrue(ieee_is_finite(x), message, location)
+
+   end subroutine assertIsFinite_real80
+#endif
+
 #ifdef _REAL128_IEEE_SUPPORT
    subroutine assertIsFinite_real128(x, message, location)
       use, intrinsic :: ieee_arithmetic, only: ieee_is_finite