?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2016-09-04 Steven G. Kargl <kargl@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr77460.f90
blob5e28a99c17632cf724d04c1e653f4061d9da56d2
1 ! { dg-do compile }
2 double precision, parameter :: x = huge(1d0)
3 print*, sum((/x,-x/))
4 print*, sum((/x,x,-x,-x/)) ! { dg-error "overflow" }
5 print*, sum((/x,-x,1d0/))
6 print*, sum((/1d0,x,-x/))
7 end
Mirror of the offical gcc git repository hosted at gcc.gnu.org