This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: ARGH. Who wrote intrinsic_set_exponent.f90?
- From: "DeLisle, Jerry V" <Jerry_V_DeLisle at RL dot gov>
- To: <fortran at gcc dot gnu dot org>
- Date: Mon, 28 Aug 2006 12:31:06 -0700
- Subject: Re: ARGH. Who wrote intrinsic_set_exponent.f90?
I am curious. Would this be legal, aka standard conforming?
subroutine test_real4()
real x,y
integer i,n
equivalence(x,i)
x = 1.0 ! <-- Set this to some dummy value so that x is defined.
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