Adjust KIND declaration for GCC13.1+

hopr-framework · Jun 30, 2023 · a4f0a55 · a4f0a55
1 parent 1be339c
commit a4f0a55
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/src/hopr.h b/src/hopr.h
@@ -45,8 +45,8 @@
 #define SIZEOF_F(x) STORAGE_SIZE(x)/8
 
 #ifdef GNU
-#define CHECKSAFEINT(x,k)  IF(x>HUGE(1_  k).OR.x<-HUGE(1_  k))       CALL ABORT(__STAMP__,'Integer conversion failed: out of range!')
-#define CHECKSAFEREAL(x,k) IF(x>HUGE(1._ k).OR.x<-HUGE(1._ k))       CALL ABORT(__STAMP__,'Real conversion failed: out of range!')
+#define CHECKSAFEINT(x,k)  IF(x>HUGE(INT( 1,KIND=k)).OR.x<-HUGE(INT( 1,KIND=k))) CALL Abort(__STAMP__,'Integer conversion failed: out of range!')
+#define CHECKSAFEREAL(x,k) IF(x>HUGE(REAL(1,KIND=k)).OR.x<-HUGE(REAL(1,KIND=k))) CALL Abort(__STAMP__,'Real conversion failed: out of range!')
 #else
 #define CHECKSAFEINT(x,k)  IF(x>HUGE(1_  ## k).OR.x<-HUGE(1_  ## k)) CALL ABORT(__STAMP__,'Integer conversion failed: out of range!')
 #define CHECKSAFEREAL(x,k) IF(x>HUGE(1._ ## k).OR.x<-HUGE(1._ ## k)) CALL ABORT(__STAMP__,'Real conversion failed: out of range!')
@@ -86,4 +86,3 @@
 #if(PP_CGNS_INT==32)
 #  define PP_CGNS_INT_TYPE INTEGER(CGSIZE_T)
 #endif
-