https://gcc.gnu.org/bugzilla/show_bug.cgi?id=86935
Bug ID: 86935
Summary: Bad locus in ASSOCIATE statement
Product: gcc
Version: 9.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: janus at gcc dot gnu.org
Target Milestone: ---
Test case (invalid code):
implicit none
type :: t
real :: r = 0.5
integer :: i = 3
end type
type(t) :: x
associate (r => x%r, &
i => x%ii)
print *, r ,i
end associate
end
gfortran says:
associate (r => x%r, &
1
Error: Expected association at (1)
The error message points to the wrong line (the first association is fine, but
the second one is wrong).
