This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [PATCH] implement g77's UMASK for gfortran


On Sat, Nov 13, 2004 at 12:16:00PM -0800, Steve Kargl wrote:
[snip]

> Index: intrinsic.c
> ===================================================================
> RCS file: /cvs/gcc/gcc/gcc/fortran/intrinsic.c,v
> retrieving revision 1.29
> diff -u -b -u -r1.29 intrinsic.c
> --- intrinsic.c	8 Nov 2004 14:56:38 -0000	1.29
> +++ intrinsic.c	13 Nov 2004 20:02:12 -0000
> @@ -1856,6 +1856,13 @@
>  
>    make_generic ("ubound", GFC_ISYM_UBOUND, GFC_STD_F95);
>  
> +  /* g77 compatibility for umask */
> +  add_sym_1 ("umask", 0, 1, BT_INTEGER, di, GFC_STD_F95,
						111111111

This should be GFC_STD_GNU, since umask is a gnu extension, not a F95
intrinsic.

> +	     gfc_check_umask, NULL, gfc_resolve_umask,
> +	     a, BT_INTEGER, di, 0);
> +
> +  make_generic ("umask", GFC_ISYM_UMASK, GFC_STD_F95);

Likewise.



-- 
Janne Blomqvist


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]