From b697042b402ce233dcc8a178376e6f8e4cf30d7e Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Sun, 14 Mar 2021 01:28:50 +0100 Subject: [PATCH] Trying to fix segfault --- src/zmq/utils.irp.f | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/zmq/utils.irp.f b/src/zmq/utils.irp.f index 9cc7c813..2fa43b29 100644 --- a/src/zmq/utils.irp.f +++ b/src/zmq/utils.irp.f @@ -913,7 +913,7 @@ integer function get_task_from_taskserver(zmq_to_qp_run_socket,worker_id,task_id task_id = 0 message = repeat(' ',1024) - rc = f77_zmq_recv(zmq_to_qp_run_socket, message, 1024, 0) + rc = f77_zmq_recv(zmq_to_qp_run_socket, message, 1023, 0) if (rc <= 0) then print *, rc stop "rc" @@ -930,7 +930,7 @@ integer function get_task_from_taskserver(zmq_to_qp_run_socket,worker_id,task_id rc += 1 enddo rc += 1 - task = message(rc:) + task = trim(message(rc:rc+511)) else if (trim(reply) == 'terminate') then task = 'terminate' else if (trim(message) == 'error No job is running') then