------- Comment #4 from sgk at troutmask dot apl dot washington dot edu
2005-10-28 20:07 -------
Subject: Re: gfortran bug regarding interface block with named END INTERFACE
statements
On Wed, Oct 26, 2005 at 06:54:10PM -0000, steven at gcc dot gnu dot org wrote:
>
> Index: interface.c
> ===================================================================
> RCS file: /cvs/gcc/gcc/gcc/fortran/interface.c,v
> retrieving revision 1.21
> diff -u -3 -p -r1.21 interface.c
> --- interface.c 21 Oct 2005 18:50:52 -0000 1.21
> +++ interface.c 26 Oct 2005 18:53:39 -0000
> @@ -295,7 +295,7 @@ gfc_match_end_interface (void)
> /* Comparing the symbol node names is OK because only use-associated
> symbols can be renamed. */
> if (type != current_interface.type
> - || strcmp (current_interface.sym->name, name) != 0)
> + || strcmp (current_interface.uop->name, name) != 0)
> {
> gfc_error ("Expecting 'END INTERFACE OPERATOR (.%s.)' at %C",
> current_interface.sym->name);
>
Bootstrapped and regression tested on amd64-*-freebsd.
I've committed the patch.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24545
