procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fortran: error recovery on associate with bad selector [PR107577]

Browse source 
gcc/fortran/ChangeLog:

	PR fortran/107577
	* resolve.cc (find_array_spec): Choose appropriate locus either of
	bad array reference or of non-array entity in error message.

gcc/testsuite/ChangeLog:

	PR fortran/107577
	* gfortran.dg/pr107577.f90: New test.
This commit is contained in:
Steve Kargl 2022-11-22 22:31:51 +01:00 • committed by Harald Anlauf
parent 8a0fce6a51
commit 2eaa0cc45e
2 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
gcc/fortran/resolve.cc
View file

@ -5005,8 +5005,9 @@ find_array_spec (gfc_expr *e)
case REF_ARRAY:
if (as == NULL)
{
locus loc = ref->u.ar.where.lb ? ref->u.ar.where : e->where;
gfc_error ("Invalid array reference of a non-array entity at %L",
&ref->u.ar.where);
&loc);
return false;
}

13
gcc/testsuite/gfortran.dg/pr107577.f90 Normal file
View file

@ -0,0 +1,13 @@
! { dg-do compile }
! PR fortran/107577 - ICE in find_array_spec
! Contributed by G.Steinmetz
program p
implicit none
associate (y => f(4)) ! { dg-error "has no IMPLICIT type" }
if (lbound (y, 1) /= 1) stop 1 ! { dg-error "Invalid array reference" }
if (y(1) /= 1) stop 2 ! { dg-error "Invalid array reference" }
end associate
end
! { dg-error "has no type" " " { target *-*-* } 7 }