Fix INTENT attribute

cp2k · Mar 7, 2023 · e56efd9 · e56efd9
1 parent 6d44348
commit e56efd9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/fm/cp_fm_types.F b/src/fm/cp_fm_types.F
@@ -2174,7 +2174,7 @@ END SUBROUTINE cp_fm_write_formatted
 !> \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'