gcc/testsuite/gfortran.dg/arithmetic_overflow_1.f90

   1 ! { dg-do compile }
   2 ! Fixes PR37787 where the arithmetic overflow was not detected and an ICE ensued.
   3 !
   4 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   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