------- Comment #4 from burnus at gcc dot gnu dot org 2010-04-30 17:17 -------
(In reply to comment #3)
> Any chance to convert the code in comment #1 into a testcase?
>
> laptop:kargl[205] grep "already present" *c
> laptop:kargl[206] grep "already" *c
> laptop:kargl[207] grep "Entity" *c
I think you mean comment 0 and "*.f* *.F*" rather than "*.c". And I find:
grep 'already present' *.f* *.F* |grep dg-
operator_5.f90: MODULE PROCEDURE t_foo ! { dg-error
"already present" }
operator_5.f90: MODULE PROCEDURE t_foo ! { dg-error
"already present" }
operator_5.f90: MODULE PROCEDURE t_bar ! { dg-error
"already present" }
proc_decl_3.f90: procedure a, a ! { dg-error "already present in the
interface" }
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43948
