Re: [Patch libfortran/28452] random intrinsics for large reals

[Jerry DeLisle <jvdelisle at verizon dot net>]

Steve Kargl wrote:
> On Sun, Jul 30, 2006 at 03:13:01PM -0400, Jack Howarth wrote:
> > Thomas,
> >     My initial test with the change of...
> >
> > --- random-patch-4.diff.org     2006-07-30 15:10:22.000000000 -0400
> > +++ random-patch-4.diff 2006-07-30 15:10:58.000000000 -0400
> > @@ -334,7 +334,7 @@
> >  +#ifdef HAVE_GFC_REAL_16
> >  +
> >  +void
> > -+random_r16 (GFC_REAL_10 *x)
> > ++random_r16 (GFC_REAL_16 *x)
> >  +{
> >  +  GFC_UINTEGER_8 kiss1, kiss2;
> >  +
> >
> > seems to work. The random_3.f90 test executes without complaint when the
> > static libgfortran is linked in. I'll do a complete build and make check
> > shortly. 
> >    Do you have any other test programs that I can run to check the
> > changes in your patch other than random_3.f90?
> >             Jack
>
> Jack, see the attached program.  Change the definition of
> ep to ep=kind(1.e0_16).  You may want to change n.
I am curious if anyone has run a spectral test on these or is that necessary?

Jerry