This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: UNMASK() intrinsic?
- From: Manfred Schwarb <manfred99 at gmx dot ch>
- To: Brooks Moses <brooks dot moses at codesourcery dot com>,fortran at gcc dot gnu dot org
- Date: Fri, 05 Jan 2007 10:56:27 +0100
- Subject: Re: UNMASK() intrinsic?
> Steve Kargl wrote:
> > On Thu, Jan 04, 2007 at 05:34:15PM -0800, Brooks Moses wrote:
> > > The intrinsic.texi documentation has an entry for an UNMASK() intrinsic, but has no documentation for it.
> > > I can't find any trace of this intrinsic in intrinsic.c or iresolve.c. Am I missing something, or is this simply
> > > a phantom that doesn't really exist?
> >
> > Is this suppose to be UMASK?
>
> That would be my best guess for where it came from, though there is also a documentation entry for UMASK.
> Unless someone says that I'm missing something, I'll probably go ahead and delete the UNMASK entry in my
> next intrinsics.texi patch.
>
> - Brooks
Brooks,
have you tried
call umask('0444'O,oldmask)
call system("umask")
call umask('0333'O)
call system("umask")
call umask(oldmask,newmask)
call system("umask")
and
oldmask=umask('0444'O)
call system("umask")
newmask=umask(oldmask)
call system("umask")
? Perhaps I'm completely confused, but for me this works with gfortran,
exactly the same way as with g77 ?!
Manfred