diff --git a/src/fm/cp_fm_types.F b/src/fm/cp_fm_types.F
index fd2080ab19..e0b9abf39c 100644
--- a/src/fm/cp_fm_types.F
+++ b/src/fm/cp_fm_types.F
@@ -2174,7 +2174,7 @@ CONTAINS
 !> \param unit ...
 ! **************************************************************************************************
    SUBROUTINE cp_fm_read_unformatted(fm, unit)
-      TYPE(cp_fm_type), INTENT(OUT)            :: fm
+      TYPE(cp_fm_type), INTENT(INOUT)          :: fm
       INTEGER, INTENT(IN)                      :: unit
 
       CHARACTER(len=*), PARAMETER :: routineN = 'cp_fm_read_unformatted'