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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! Fixes PR37787 where the arithmetic overflow was not detected and an ICE ensued.
!
! Contributed by Tobias Burnus 
!
program bug
  implicit none
   integer(1) :: a(2) = (/ Z'FF', Z'FF' /) ! { dg-error "Arithmetic overflow" }
   print*, a
end program bug

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Fixes PR37787 where the arithmetic overflow was not detected and an ICE ensued.`
3			`!`
4			`! Contributed by Tobias Burnus`
5			`!`
6			`program bug`
7			`implicit none`
8			`integer(1) :: a(2) = (/ Z'FF', Z'FF' /) ! { dg-error "Arithmetic overflow" }`
9			`print*, a`
10			`end program bug`

Browse

Tools

Subversion Repositories openrisc

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