diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-06-21 13:27:10 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-06-21 13:27:10 -0400 |
commit | 660235928d1dd57d85cb7bd986c5036783a6073f (patch) | |
tree | ebbd98f90690acaa0cf5bdbf4dc4f82f10ea455f /captain/web.f90 | |
parent | 20091904b7bf4b2074b45e25c7eee0e56d19348b (diff) | |
download | levitating-660235928d1dd57d85cb7bd986c5036783a6073f.tar.gz levitating-660235928d1dd57d85cb7bd986c5036783a6073f.zip |
Fixed memory issue caused by multiple deallocation calls.
Diffstat (limited to 'captain/web.f90')
-rw-r--r-- | captain/web.f90 | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/captain/web.f90 b/captain/web.f90 index 9254658..dac658b 100644 --- a/captain/web.f90 +++ b/captain/web.f90 @@ -393,9 +393,7 @@ contains j = get_player_id(trim(player_name)) call add_entry_to_group_db(id, i, j) - - deallocate(qreq) - + else qreq => q%get_value("delete") @@ -410,9 +408,7 @@ contains j = get_player_id(trim(player_name)) call remove_entry_from_group_db(id, i, j) - - deallocate(qreq) - + else if(trim(req%query_string) == "launch") then call launch_group(id) |