From 0b6ead1a484fb472e36d8ddf351f39d0e5d977f0 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 12 May 2022 15:36:12 +0200 Subject: [PATCH] avoid console-spam during initialization --- src/signals.f90 | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/src/signals.f90 b/src/signals.f90 index bf53912f4..a3eac8025 100644 --- a/src/signals.f90 +++ b/src/signals.f90 @@ -10,9 +10,9 @@ module signals private logical, volatile, public, protected :: & - signals_SIGTERM, & !< termination signal - signals_SIGUSR1, & !< 1. user-defined signal - signals_SIGUSR2 !< 2. user-defined signal + signals_SIGTERM = .false., & !< termination signal + signals_SIGUSR1 = .false., & !< 1. user-defined signal + signals_SIGUSR2 = .false. !< 2. user-defined signal public :: & signals_init, & @@ -31,9 +31,6 @@ subroutine signals_init() call signalterm_c(c_funloc(catchSIGTERM)) call signalusr1_c(c_funloc(catchSIGUSR1)) call signalusr2_c(c_funloc(catchSIGUSR2)) - call signals_setSIGTERM(.false.) - call signals_setSIGUSR1(.false.) - call signals_setSIGUSR2(.false.) end subroutine signals_init