Skip to content

Commit de8561a

Browse files
committed
Fix: Declare A as integer rather than logical in hco_esmf_wrappers
1. Compiling with gfortran leads to a compilation error because of integer/logical comparison Signed-off-by: Thibaud Fritz <[email protected]>
1 parent e53b416 commit de8561a

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

hco_esmf_wrappers.F90

+2-2
Original file line numberDiff line numberDiff line change
@@ -34,7 +34,7 @@ module hco_esmf_wrappers
3434
! Note that the VERIFY and ASSERT functions here are inverse of MAPL and
3535
! return 1 on success, 0 on failure.
3636
logical function HCO_ESMF_VRFY(A, subname, line, ECRC)
37-
logical, intent(in) :: A
37+
integer, intent(in) :: A
3838
character*(*), intent(in) :: subname
3939
integer, intent(in) :: line
4040
integer, optional, intent(out) :: ECRC
@@ -79,4 +79,4 @@ logical function HCO_ESMF_ASRT(A, subname, line, ECRC)
7979
endif
8080
end function HCO_ESMF_ASRT
8181
!EOC
82-
end module hco_esmf_wrappers
82+
end module hco_esmf_wrappers

0 commit comments

Comments
 (0)