Use iso_c_binding for building signal handlers

src/mctc/error.f90

@@ -66,14 +66,20 @@ subroutine terminate(signal)
    end select
 end subroutine terminate
 
-subroutine wsigint
+subroutine xtb_wsigint(signal) bind(c)
+   use, intrinsic :: iso_c_binding, only : c_int
    use xtb_mctc_io, only : stderr
+   implicit none
+   integer(c_int), value :: signal
    write(stderr,'("recieved SIGINT, terminating...")')
    call terminate(-1)
-end subroutine wsigint
+end subroutine xtb_wsigint
 
-subroutine wsigterm
+subroutine xtb_wsigterm(signal) bind(c)
+   use, intrinsic :: iso_c_binding, only : c_int
    use xtb_mctc_io, only : stderr
+   implicit none
+   integer(c_int), value :: signal
    write(stderr,'("recieved SIGTERM, terminating...")')
    call terminate(-1)
-end subroutine wsigterm
+end subroutine xtb_wsigterm

src/mctc/mctc_init.F90

@@ -16,6 +16,7 @@
 ! along with xtb.  If not, see <https://www.gnu.org/licenses/>.
 
 subroutine mctc_init(progname,ntimer,verbose)
+   use, intrinsic :: iso_c_binding, only : c_int, c_funptr, c_funloc
    use xtb_mctc_global
    use xtb_mctc_timings
    use xtb_mctc_filetools
@@ -30,17 +31,26 @@ subroutine mctc_init(progname,ntimer,verbose)
 
 !! ========================================================================
 !  signal processing
-   external :: wSIGTERM
-   external :: wSIGINT
+   interface
+      subroutine xtb_wsigint(signal) bind(C)
+         import :: c_int
+         integer(c_int), value :: signal
+      end subroutine xtb_wsigint
+      subroutine xtb_wsigterm(signal) bind(C)
+         import :: c_int
+         integer(c_int), value :: signal
+      end subroutine xtb_wsigterm
+      subroutine xtb_signal_handler(signal, handler) bind(C)
+         import :: c_int, c_funptr
+         integer(c_int), value :: signal
+         type(c_funptr), value :: handler
+      end subroutine xtb_signal_handler
+   end interface
 !  here two important signal handlers are installed, it seems that
 !  FORTRAN by itself cannot handle signals in the way I expected it
 !  to do, but this will force it to die when I hit CTRL^C.
-!  UPDATE: Since the FORTRAN standard does not specify which signals
-!          are handled by the language, some compilers may handle no
-!          signals at all. This is *non-standard* so it will break
-!          your program on some platforms with some compilers!
-   call signal(2,wSIGINT)
-   call signal(15,wSIGTERM)
+   call xtb_signal_handler(2_c_int, c_funloc(xtb_wsigint))
+   call xtb_signal_handler(15_c_int, c_funloc(xtb_wsigterm))
 
 !  initialize the timing system
    call start_timing_run

src/mctc/signal.c

@@ -10,7 +10,8 @@
 
 typedef void (*sighandler_t)(int);
 
-void signal_( int* signum, sighandler_t handler)
+void
+xtb_signal_handler(int signum, sighandler_t handler)
 {
-   signal(*signum, handler);
+   signal(signum, handler);
 }