diff --git a/fortran/src/H5Dff.F90 b/fortran/src/H5Dff.F90
index 5b571e55ba4..97af9f090eb 100644
--- a/fortran/src/H5Dff.F90
+++ b/fortran/src/H5Dff.F90
@@ -2266,6 +2266,9 @@ SUBROUTINE h5dfill_char(fill_value, space_id, buf, hdferr)
     CALL h5dfill_ptr(f_ptr_fill_value, fill_type_id, f_ptr_buf, mem_type_id, space_id, hdferr)
 
   END SUBROUTINE h5dfill_char
+
+#endif
+
 !>
 !! \ingroup FH5D
 !!
@@ -2369,8 +2372,6 @@ END FUNCTION H5Dwrite_multi
 
   END SUBROUTINE h5dwrite_multi_f
 
-#endif
-
 END MODULE H5D