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