Contributing

[Steve Kargl]

On Sat, Jan 22, 2005 at 08:54:46AM -0800, Steve Kargl wrote:
> On Sat, Jan 22, 2005 at 02:27:19PM +0100, Gunnar wrote:
> 
> For example, for the UMASK intrinsic function and subroutine, you find
> kargl[217] grep _umask *
> check.c:gfc_check_umask (gfc_expr * mask)
> check.c:gfc_check_umask_sub (gfc_expr * mask, gfc_expr * old)
> intrinsic.c:         gfc_check_umask, NULL, gfc_resolve_umask,
> intrinsic.c:          gfc_check_umask_sub, NULL, gfc_resolve_umask_sub,
> intrinsic.h:try gfc_check_umask (gfc_expr *);
> intrinsic.h:try gfc_check_umask_sub (gfc_expr *, gfc_expr *);
> intrinsic.h:void gfc_resolve_umask (gfc_expr *, gfc_expr *);
> intrinsic.h:void gfc_resolve_umask_sub (gfc_code *);
> iresolve.c:gfc_resolve_umask (gfc_expr * f, gfc_expr * n)
> iresolve.c:gfc_resolve_umask_sub (gfc_code * c)
> 

Whoops, I forgot this chunk.

kargl[218] grep UMASK *
gfortran.h:  GFC_ISYM_UMASK,
intrinsic.c:  /* g77 compatibility for UMASK.  */
intrinsic.c:  make_generic ("umask", GFC_ISYM_UMASK, GFC_STD_GNU);
iresolve.c:/* Resolve the g77 compatibility function UMASK.  */
iresolve.c:/* Resolve the UMASK intrinsic subroutine.  */
trans-intrinsic.c:    case GFC_ISYM_UMASK:



-- 
Steve