diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-27 17:23:03 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2022-06-27 17:23:03 -0400 |
| commit | 6e59e791b7b4d1184e70378544b6ace433ab33aa (patch) | |
| tree | 4bfd1fbc5684eb78535e35164bb8c03aef0afe21 /captain/log.f90 | |
| parent | a9fc9ce2035e0db07baa6e732200265a90f66332 (diff) | |
| download | levitating-6e59e791b7b4d1184e70378544b6ace433ab33aa.tar.gz levitating-6e59e791b7b4d1184e70378544b6ace433ab33aa.zip | |
Quick switch to more reasonable example config paths. Log file is now checked for allocated filename before dealocation.
Diffstat (limited to 'captain/log.f90')
| -rw-r--r-- | captain/log.f90 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/captain/log.f90 b/captain/log.f90 index 2bc183f..70314c2 100644 --- a/captain/log.f90 +++ b/captain/log.f90 @@ -50,7 +50,9 @@ contains subroutine shutdown() implicit none - deallocate(logfile) + if(associated(logfile)) then + deallocate(logfile) + end if logfile => null() end subroutine shutdown |