https://gcc.gnu.org/bugzilla/show_bug.cgi?id=103508
--- Comment #3 from Paul Thomas <pault at gcc dot gnu.org> ---
(In reply to G. Steinmetz from comment #1)
> This is the working version :
>
Indeed!
15-branch now emits:
pr103508.f90:12:9:
12 | end
| 1
Error: END BLOCK statement expected at (1)
(null):0: confused by earlier errors, bailing out
whereas mainline emits the error and goes into an infinite loop.
Oddly, this non-PDT version does the same:
program p
type t
integer :: n = 1
character(3) :: c
end type
block
block
type(t) :: x
x%c = 'abc'
print *, len(x%c)
end
end
end
Paul
