From 783a9532b7ef86b146e80c36e021c3cd36d72cbd Mon Sep 17 00:00:00 2001
From: Scot Breitenfeld <brtnfld@hdfgroup.org>
Date: Thu, 10 Oct 2024 12:05:27 -0500
Subject: [PATCH] Fixed data typing errors discovered by promoting integers and
 reals.

---
 fortran/src/H5Rff.F90  | 6 +++---
 fortran/src/H5VLff.F90 | 5 +++--
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/fortran/src/H5Rff.F90 b/fortran/src/H5Rff.F90
index cad9d3c8a0e..75933e28fb4 100644
--- a/fortran/src/H5Rff.F90
+++ b/fortran/src/H5Rff.F90
@@ -856,13 +856,13 @@ INTEGER(C_INT) FUNCTION H5Requal(ref1_ptr, ref2_ptr) &
        END FUNCTION H5Requal
     END INTERFACE
 
-    c_equal = INT(H5Requal(ref1_ptr, ref2_ptr))
+    c_equal = INT(H5Requal(ref1_ptr, ref2_ptr), C_INT)
 
     hdferr = 0
     equal = .FALSE.
-    IF(c_equal .EQ. 1)THEN
+    IF(c_equal .EQ. 1_C_INT)THEN
        equal = .TRUE.
-    ELSE IF(c_equal .LT. 0)THEN
+    ELSE IF(c_equal .LT. 0_C_INT)THEN
        hdferr = -1
     ENDIF
 
diff --git a/fortran/src/H5VLff.F90 b/fortran/src/H5VLff.F90
index b07e1389f21..e1629328ce2 100644
--- a/fortran/src/H5VLff.F90
+++ b/fortran/src/H5VLff.F90
@@ -419,7 +419,8 @@ SUBROUTINE H5VLcmp_connector_cls_f(are_same, conn_id1, conn_id2, hdferr)
     INTEGER(HID_T), INTENT(IN) :: conn_id1
     INTEGER(HID_T), INTENT(IN) :: conn_id2
     INTEGER, INTENT(OUT) :: hdferr
-    INTEGER :: are_same_c
+
+    INTEGER(C_INT) :: are_same_c
 
     INTERFACE
        INTEGER(C_INT) FUNCTION H5VLcmp_connector_cls(cmp_value, conn_id1, conn_id2) BIND(C, NAME='H5VLcmp_connector_cls')
@@ -432,7 +433,7 @@ END FUNCTION H5VLcmp_connector_cls
 
     are_same = .FALSE.
     hdferr = INT(H5VLcmp_connector_cls(are_same_c, conn_id1, conn_id2))
-    IF(are_same_c .EQ. 0) are_same = .TRUE.
+    IF(are_same_c .EQ. 0_C_INT) are_same = .TRUE.
 
   END SUBROUTINE H5VLcmp_connector_cls_f