gcc/testsuite/gfortran.dg/arithmetic_overflow_2.f90


1
2
3
4
5
6
7
8
9
10
11
12

! { dg-do compile }
! { dg-additional-options "-frange-check" }
!
! PR fortran/113799 - handle arithmetic overflow on unary minus

program p
  implicit none
  real, parameter :: inf = real(z'7F800000')
  real, parameter :: someInf(*) = [inf, 0.]
  print *, -someInf         ! { dg-error "Arithmetic overflow" }
  print *, minval(-someInf) ! { dg-error "Arithmetic overflow" }
end