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

[Steve Kargl <sgk at troutmask dot apl dot washington dot edu>]

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.

-- 
Steve

Attachment: equi_r4_r8_r10.f90
Description: Text document