gcc/testsuite/gfortran.dg/intrinsic_signal.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/49690
   4 !
   5 ! Reduced test case, based on the one of Debian bug #631204
   6 !
   7
   8 subroutine ctrlc_ast
   9    common /xinterrupt/ interrupted
  10    logical interrupted
  11    interrupted = .true.
  12 end subroutine ctrlc_ast
  13
  14 subroutine set_ctrl_c(ctrlc_ast)
  15    external ctrlc_ast
  16    intrinsic signal
  17    integer old_handle
  18    common /xinterrupt/ interrupted
  19    logical interrupted
  20    old_handler = signal(2, ctrlc_ast)
  21 end subroutine set_ctrl_c