1! { dg-do compile }
2!
3! PR fortran/49690
4!
5! Reduced test case, based on the one of Debian bug #631204
6!
7
8subroutine ctrlc_ast
9   common /xinterrupt/ interrupted
10   logical interrupted
11   interrupted = .true.
12end subroutine ctrlc_ast
13
14subroutine 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)
21end subroutine set_ctrl_c
22