[gfortran] Implement irand(), rand(), and srand() for G77 compatibility

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

Here is an implementation of irand(), rand(), and srand()
for G77 compatibility.  I have bootstrapped and tested 
gfortran on FreeBSD.  The outputs from a program using
these functions and compiled with gfortran and g77 were
compared.  On the FreeBSD, the outputs were essentially
identical.

ChangeLog for gcc/fortran

2004-05-30  Steven G. Kargl  <kargls@comcast.net>
     * check.c (gfc_check_irand, gfc_check_rand, gfc_check_srand): New
       functions.
     * iresolve.c (gfc_resolve_srand): New function.
     * intrinsic.h:  Add prototypes for new functions.
     * gfortran.h: New symbols GFC_ISYM_IRAND and GFC_ISYM_RAND.
     * intrinsic.c (add_functions):  Use symbols.  Add irand and rand.
     * intrinsic.c (add_subroutines): Add srand.
     * trans-intrinsic.c (gfc_conv_intrinsic_function):  Use symbols.

ChangeLog for libgfortran

2004-05-30  Steven G. Kargl  <kargls@comcast.net>
     * rand.c (irand, srand, rand): New file
     * Makefile.am: Update for rand.c
     * Makefile.in: Regenerated.
     * aclocal.am: Regenerated.
-- 
Steve

Attachment: rand.c
Description: Text document

Attachment: libgfortran.diff
Description: Text document

Attachment: fortran.diff
Description: Text document