11 lines
295 B
Fortran
11 lines
295 B
Fortran
! { dg-do compile }
|
|
! Fixes PR37787 where the arithmetic overflow was not detected and an ICE ensued.
|
|
!
|
|
! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
|
|
!
|
|
program bug
|
|
implicit none
|
|
integer(1) :: a(2) = (/ Z'FF', Z'FF' /) ! { dg-error "Arithmetic overflow" }
|
|
print*, a
|
|
end program bug
|