procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tiny_1.f90: New test.

Browse source 
* gfortran.dg/tiny_1.f90: New test.
* gfortran.dg/tiny_2.f90: New test.

From-SVN: r97795
This commit is contained in:
Steven G. Kargl 2005-04-07 18:59:56 +00:00 • committed by Steven G. Kargl
parent 773168c774
commit c908c7683d
3 changed files with 23 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
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

9
gcc/testsuite/gfortran.dg/tiny_1.f90 Normal file
View file

@ -0,0 +1,9 @@
! { 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

9
gcc/testsuite/gfortran.dg/tiny_2.f90 Normal file
View file

@ -0,0 +1,9 @@
! { 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