PR fortran/30947
* intrinsics/signal.c (alarm_sub_int): Avoid SEGFAULT with
integer arguments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@122716
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-03-08 Daniel Franke <franke.daniel@gmail.com>
+
+ PR fortran/30947
+ * intrinsics/signal.c (alarm_sub_int): Avoid SEGFAULT with
+ integer arguments.
+
2007-03-04 Thomas Koenig <Thomas.Koenig@online.de>
PR libfortran/30981
#if defined (SIGALRM) && defined (HAVE_ALARM) && defined (HAVE_SIGNAL)
if (status != NULL)
{
- if (signal (SIGALRM, (void (*)(int)) handler) == SIG_ERR)
+ if (signal (SIGALRM, (void (*)(int)) *handler) == SIG_ERR)
*status = -1;
else
*status = alarm (*seconds);
}
else
{
- signal (SIGALRM, (void (*)(int)) handler);
+ signal (SIGALRM, (void (*)(int)) *handler);
alarm (*seconds);
}
#else