* gfortran.dg/tiny_2.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97795
138bc75d-0d04-0410-961f-
82ee72b054a4
+2005-04-07 Steven G. Kargl <kargls@comcast.net>
+
+ * gfortran.dg/tiny_1.f90: New test.
+ * gfortran.dg/tiny_2.f90: ditto.
+
2005-04-07 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.dg/eor_1.f90: Fix dg-do run line
--- /dev/null
+! { dg-do run }
+! Test program inspired by bug report from Walt Brainerd.
+! http://gcc.gnu.org/ml/fortran/2005-04/msg00132.html
+program tiny1
+ real(4) x4
+ real(8) x8
+ if (minexponent(x4) /= exponent(tiny(x4))) call abort
+ if (minexponent(x8) /= exponent(tiny(x8))) call abort
+end program tiny1
--- /dev/null
+! { dg-do run }
+program tiny2
+ real(4) x4
+ real(8) x8
+ x4 = tiny(x4)
+ x8 = tiny(x8)
+ if (minexponent(x4) /= exponent(x4)) call abort
+ if (minexponent(x8) /= exponent(x8)) call abort
+end program tiny2