From 85db07d4cca9e6d885bdf237449d6e0c37e79c99 Mon Sep 17 00:00:00 2001
From: cplett <82893466+cplett@users.noreply.github.com>
Date: Fri, 7 Oct 2022 12:51:30 +0200
Subject: [PATCH] Bugfix for compiler fortran-2022.2.0
Signed-off-by: cplett <82893466+cplett@users.noreply.github.com>
---
src/type/iohandler.f90 | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/type/iohandler.f90 b/src/type/iohandler.f90
index 15f19d8de..a06018f4a 100644
--- a/src/type/iohandler.f90
+++ b/src/type/iohandler.f90
@@ -140,7 +140,9 @@ subroutine pushBack(self, fileHandle)
self%count = self%count + 1
if (self%count > size(self%log)) then
n = size(self%log)
- call move_alloc(self%log, tmp)
+ allocate(tmp(n))
+ tmp=self%log
+ deallocate(self%log)
allocate(self%log(n + n/2 + 1))
self%log(1:n) = tmp
deallocate(tmp)