From 9061cceae5cd9b2a1b17cd895ba92729987e4803 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Mon, 18 May 2020 09:25:16 -0400 Subject: Fixed rendering when an error occurs in GUI client. GUI client window title now set to first encountered level 1 heading. --- protocol.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'protocol.f90') diff --git a/protocol.f90 b/protocol.f90 index e8039d3..c25441c 100644 --- a/protocol.f90 +++ b/protocol.f90 @@ -135,7 +135,7 @@ contains returncode = -1 write(unit_number, *) "Send Error: Could Not Send Request" - write(*, *) "Send Error: Could Not Send Request" + end if else -- cgit v1.2.3