diff --git a/fortran/src/H5Dff.F90 b/fortran/src/H5Dff.F90
index 3ddca79c6e7..3e8ac60d9b9 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
 !!
@@ -2473,8 +2476,6 @@ END FUNCTION H5Dwrite_chunk
 
   END SUBROUTINE h5dwrite_chunk_f
 
-#endif
-
 END MODULE H5D