URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [intrinsic_signal.f90] - Blame information for rev 708

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do compile }
!
! PR fortran/49690
!
! Reduced test case, based on the one of Debian bug #631204
!
 
subroutine ctrlc_ast
   common /xinterrupt/ interrupted
   logical interrupted
   interrupted = .true.
end subroutine ctrlc_ast
 
subroutine set_ctrl_c(ctrlc_ast)
   external ctrlc_ast
   intrinsic signal
   integer old_handle
   common /xinterrupt/ interrupted
   logical interrupted
   old_handler = signal(2, ctrlc_ast)
end subroutine set_ctrl_c

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { 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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [intrinsic_signal.f90] - Blame information for rev 708