5 ! Reduced test case, based on the one of Debian bug #631204
9 common /xinterrupt
/ interrupted
12 end subroutine ctrlc_ast
14 subroutine set_ctrl_c(ctrlc_ast
)
18 common /xinterrupt
/ interrupted
20 old_handler
= signal(2, ctrlc_ast
)
21 end subroutine set_ctrl_c