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

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

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.





-- 
Steve

Attachment: bessel.f
Description: Text document

Attachment: bessel.c
Description: Text document

Attachment: fortran.diff
Description: Text document

Attachment: libgfortran.diff
Description: Text document