This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: intrinsic.c (compare_actual_formal)
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: Daniel Franke <franke dot daniel at gmail dot com>
- Cc: fortran at gcc dot gnu dot org
- Date: Tue, 4 May 2010 16:40:17 -0700
- Subject: Re: intrinsic.c (compare_actual_formal)
- References: <201005020023.28448.franke.daniel@gmail.com>
On Sun, May 02, 2010 at 12:23:27AM +0200, Daniel Franke wrote:
>
> Hi all.
>
> I'm looking at intrinsic.c (compare_actual_formal). It appears that most, if
I think you mean interface.c.
> not all, error messages are protected with
>
> if (where)
> gfc_error(...)
>
> whether 'where' is actually used in the message or not.
svn annotate shows for one of the blocks (others are similar):
81764 dnovillo if (where)
120587 kargl gfc_error ("Missing .... turn spec in subroutine call "
120587 kargl "at %L", where);
where I've replace error text with "....".
troutmask:sgk[218] svn log -r 81764 interface.c
------------------------------------------------------------------------
r81764 | dnovillo | 2004-05-12 23:41:07 -0700 (Wed, 12 May 2004) | 3 lines
Merge tree-ssa-20020619-branch into mainline.
troutmask:sgk[219] svn log -r 120587 interface.c
------------------------------------------------------------------------
r120587 | kargl | 2007-01-08 11:02:08 -0800 (Mon, 08 Jan 2007) | 6 lines
2007-01-08 Steven G. Kargl <kargl@gcc.gnu.org>
* interface.c, intrinsic.c, gfortranspec.c, io.c, f95-lang.c,
iresolve.c, match.c: Update Copyright years. Whitespace.
It appears that these "if (where)" blocks have been around for
a very long time.
Checking the various ChangeLog-* file shows patches committed
in 2004 by Tobi Schlueter, but I belive the "if (where)" blocks
pre-date his patches.
--
Steve