Re: [PATCH] more g77 runtime library functions for gfortran

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

On Sat, Aug 21, 2004 at 06:08:17PM -0700, Steve Kargl wrote:
> On Thu, Aug 19, 2004 at 02:02:54AM +0100, Paul Brook wrote:
> > 
> > Not tested, but shouldn't be far off:
> > 
> 
> I used your implementation of gfc_conv_intrinsic_libcall
> after correcting a few typos.  Also, I needed to remove
> "static" from  gfc_sym_identifier() in trans-decl.c.
> 
> bessel.f          --> testsuite file for gfortran.dg
> bessel.c          --> goes in libgfortran/intrinsics
> fortran.diff      --> diff to cvs
> libgffortran.diff --> diff to cvs
> 
> ChangeLog for libgfortran 
> 
> 2004-08-21  Steven G. Kargl  <kargls@comcast.net>
> 
>         * Makefile.am: Add intrinsics/bessel.c.
>         * config.h.in (HAVE_{J,Y}{0,1,N}): New symbols.
>         * configure.ac: Test libm for {j,y}[f]{0,1,n}.
>         * Makefile.in: regenerated.
>         * configure: regenerated.
> 
> ChangeLog for fortran
> 
> 2004-08-21  Steven G. Kargl  <kargls@comcast.net>
> 
>         * check (gfc_check_besj0,gfc_check_besjn,gfc_check_dfloat): New functions.
>         * gfortran.h (GFC_ISYM_BES{J,Y}{0,1,N},GFC_ISYM_DFLOAT): New symbols.
>         * intrinsic.c: Add [d]bes{j,y}{0,1,n} and dfloat to list of intrinsicsi
>           Use symbols.  Remove dfloat aliase to dble.
>         * intrinsic.h (gfc_check_besj{0,n},gfc_check_dfloat,gfc_simplify_dfloat,
>           gfc_resolve_bes{j,y}{0,1,n}):  Add prototypes.
>         * iresolve.c (gfc_resolve_bes{j,y}{0,1,n}): New functions.
>         * simplify.c (gfc_simplify_dfloat): New function.
>         * trans-decl.c (gfc_sym_identifier): Remove static.
>         * trans-intrinsic.c (gfc_conv_intrinsic_libcall): New function.
>         * trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbols.
>         * trans.h: Add prototype.
> 

The attached files update this patch set to include the additions
of erf, derf, erfc, derfc, getpid, getgid, and getuid.  Bootstrap
and regression tested.  No new failures are caused by this patch.
Here's updated ChangeLogs.

ChangeLog for libgfortran 
 
2004-08-21  Steven G. Kargl  <kargls@comcast.net>

        * intrinsics/bessel.c: New file
        * intrinsics/erf_erfc.c: New file
        * intrinsics/getXid.c: New file
        * Makefile.am: Add intrinsics/bessel.c, intrinsics/getid.c, and
          intrinsics/erf_erfc.c.
        * config.h.in (HAVE_{J,Y}{0,1,N}, HAVE_ERF[C][F], HAVE_GET{G,P,U}ID):
          New symbols.
        * configure.ac: Test libm for {j,y}[f]{0,1,n} and erf[c][f] and test
          libc for getpid, getgid, getuid.
        * Makefile.in: regenerated.
        * configure: regenerated.

ChangeLog for fortran

2004-08-21  Steven G. Kargl  <kargls@comcast.net>

        * check (gfc_check_besj0,gfc_check_besjn,gfc_check_dfloat):
          New functions.
        * gfortran.h (GFC_ISYM_BES{J,Y}{0,1,N},GFC_ISYM_DFLOAT,
          GFC_ISYM_ERF[C]): New symbols.
        * intrinsic.c: Add [d]bes{j,y}{0,1,n}, [d]erf[c], and dfloat to
          list of intrinsics.
          Use symbols.  Remove dfloat alias to dble.
        * intrinsic.h (gfc_check_besj{0,n},gfc_check_dfloat,
          gfc_simplify_dfloat, gfc_resolve_bes{j,y}{0,1,n}, gfc_resolve_erf[c], 
          gfc_resolve_get{g,p,u}id):  Add prototypes.
        * iresolve.c (gfc_resolve_bes{j,y}{0,1,n},gfc_resolve_erf[c],
          gfc_resolve_get{g,p,u}id): New functions.
        * simplify.c (gfc_simplify_dfloat): New function.
        * trans-decl.c (gfc_sym_identifier): Remove static.
        * trans-intrinsic.c (gfc_conv_intrinsic_libcall): New function.
        * trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbols.
        * trans.h: Add gfc_sym_identifier prototype.

Attachment: bessel.c
Description: Text document

Attachment: bessel.f
Description: Text document

Attachment: erf_erfc.c
Description: Text document

Attachment: fortran-040828.diff
Description: Text document

Attachment: getXid.c
Description: Text document

Attachment: libgfortran-040828.diff
Description: Text document