From e56efd95b4a7426076b5c7ed4480aeed6489ddf4 Mon Sep 17 00:00:00 2001 From: Matthias Krack Date: Tue, 7 Mar 2023 17:46:15 +0100 Subject: [PATCH] Fix INTENT attribute --- src/fm/cp_fm_types.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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'