From 2a8a43af39072ee9300b0518b981c8ffb716a327 Mon Sep 17 00:00:00 2001 From: Achim Gsell Date: Wed, 23 Mar 2016 21:51:00 +0100 Subject: [PATCH] src/include/H5_debug.f90: - h5_set_debug_mask(): bugfix --- src/include/H5_debug.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/include/H5_debug.f90 b/src/include/H5_debug.f90 index af941fa..d15202b 100644 --- a/src/include/H5_debug.f90 +++ b/src/include/H5_debug.f90 @@ -28,7 +28,7 @@ !! \see h5_get_debug_mask() SUBROUTINE h5_set_debug_mask ( mask ) - INTEGER*9, INTEGER(IN) :: mask !< [in] debug mask + INTEGER*8, INTENT(IN) :: mask !< [in] debug mask END SUBROUTINE h5_set_debug_mask !>