Merge pull request #414 from Goddard-Fortran-Ecosystem/hotfix/real128

Fix for compilers that do not support 128 bit reals
Goddard-Fortran-Ecosystem · Feb 7, 2023 · 3c4ca13 · 3c4ca13
2 parents 1807e98 + 4b7a553
commit 3c4ca13
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 1 deletion.
diff --git a/CMakeLists.txt b/CMakeLists.txt
@@ -25,7 +25,7 @@
 cmake_minimum_required(VERSION 3.12)
 
 project (PFUNIT
-  VERSION 4.6.2
+  VERSION 4.6.3
   LANGUAGES Fortran C)
 
 # Determine if pFUnit is built as a subproject (using

diff --git a/ChangeLog.md b/ChangeLog.md
@@ -5,6 +5,12 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## [Unreleased]
 
+## [4.6.3] - 2023-02-07
+
+### Fixed
+
+- Fix for compilers that do not support 128 bit reals
+
 ## [4.6.2] - 2023-01-23
 
 ### Fixed

diff --git a/src/funit/fhamcrest/BaseDescription.F90 b/src/funit/fhamcrest/BaseDescription.F90
@@ -40,10 +40,14 @@ end subroutine append_character
       module procedure description_of_int64
       module procedure description_of_real32
       module procedure description_of_real64
+#if (defined(_ISO_REAL128) && (_ISO_REAL128 != _REAL_DEFAULT_KIND) && (_ISO_REAL128 != _DOUBLE_DEFAULT_KIND))
       module procedure description_of_real128
+#endif
       module procedure description_of_complex32
       module procedure description_of_complex64
+#if (defined(_ISO_REAL128) && (_ISO_REAL128 != _REAL_DEFAULT_KIND) && (_ISO_REAL128 != _DOUBLE_DEFAULT_KIND))      
       module procedure description_of_complex128
+#endif
    end interface description_of
 
 contains