This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
ARGH. Who wrote intrinsic_set_exponent.f90?
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: fortran at gcc dot gnu dot org
- Date: Sat, 26 Aug 2006 20:51:32 -0700
- Subject: ARGH. Who wrote intrinsic_set_exponent.f90?
I've have discovered a bug that affects all versions of
gfortran. In fixing the bug, I need to also fix a few
testsuite programs that should never have worked. The
last program I need to fix is
gfortran.fortran-torture/execute/intrinsic_set_exponent.f90
Who wrote this test? It is using nonconforming code, and
gfortran's handling of BOZ constants does not do what
you think. Here's a excerpt of the brokeness.
subroutine test_real4()
real x,y
integer i,n
equivalence(x,i)
n = 128
i = o'00037777777' ! <-- This doesn't do what you think.
y = set_exponent (x, n) ! <-- This is nonconforming.
if (exponent (y) .ne. n) call abort()
end subroutine
This test is a candidate for removal.
--
Steve