From b2018c336773159cf3353edf5bc41d1490eda8e3 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 15 Mar 2008 03:20:57 +0000 Subject: [PATCH] re PR fortran/33296 (nearest(huge(1.0),1.0) gives an error) 2008-03-14 Jerry DeLisle PR testsuite/33296 gfortran.dg/nearest_4.f90: New test. From-SVN: r133236 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/nearest_4.f90 | 6 ++++++ 2 files changed, 11 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/nearest_4.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 93b5b842d8e..4429cbe2606 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-03-14 Jerry DeLisle + + PR testsuite/33296 + gfortran.dg/nearest_4.f90: New test. + 2008-03-14 Richard Guenther PR tree-optimization/13761 diff --git a/gcc/testsuite/gfortran.dg/nearest_4.f90 b/gcc/testsuite/gfortran.dg/nearest_4.f90 new file mode 100644 index 00000000000..51ee35f9a8f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/nearest_4.f90 @@ -0,0 +1,6 @@ +! { dg-do compile } +! PR33296 nearest(huge(1.0),1.0) gives an error +real x +x = nearest(-huge(1.0),-1.0) +print *, x +end -- 2.30.2