https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99256
anlauf at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |anlauf at gcc dot gnu.org
--- Comment #3 from anlauf at gcc dot gnu.org ---
We could get approximate locus info with e.g.
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c
index 3682f9ae21f..78dfdbe7c92 100644
--- a/gcc/fortran/intrinsic.c
+++ b/gcc/fortran/intrinsic.c
@@ -5108,6 +5108,15 @@ gfc_intrinsic_sub_interface (gfc_code *c, int
error_flag)
if (!do_ts29113_check (isym, c->ext.actual))
goto fail;
+ gfc_actual_arglist *actual;
+ for (actual = c->ext.actual; actual; actual = actual->next)
+ if (actual->label)
+ {
+ gfc_error ("Label %d not allowed as argument of intrinsic %qs at %L",
+ actual->label->value, name, &c->loc);
+ goto fail;
+ }
+
if (isym->check.f1 != NULL)
{
if (!do_check (isym, c->ext.actual))
which regtests ok.
