This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: [Patch libfortran/28452] random intrinsics for large reals
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: Jack Howarth <howarth at bromo dot msbb dot uc dot edu>
- Cc: fortran at gcc dot gnu dot org, Thomas dot Koenig at online dot de
- Date: Sat, 29 Jul 2006 11:21:31 -0700
- Subject: Re: [Patch libfortran/28452] random intrinsics for large reals
- References: <20060729181946.88F4D70006@bromo.msbb.uc.edu>
On Sat, Jul 29, 2006 at 02:19:46PM -0400, Jack Howarth wrote:
>
> If you have a suggested fix for this, I'll give it a try.
> Jack
Jack,
In this line
+ *f = (GFC_REAL_16) v1 * (GFC_REAL_16) 0x1.p-64
+ + (GFC_REAL_16) v2 * (GFC_REAL_16) 0x.p-128;
change f to v.
--
Steve