[Bug fortran/59016] f951: internal compiler error: Segmentation fault

["drikosev at otenet dot gr" <gcc-bugzilla@gcc.gnu.org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=59016

--- Comment #15 from drikosev at otenet dot gr ---
Created attachment 35230
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=35230&action=edit
altered patch for the regressions reported in comment 11

Hi,

As it seems the problem with the program bug.f90 is that the generic attribute
is set in a symbol as the parser tries to match a declaration type
specification; but finally, the statement isn't matched as such and the generic
attribute wasn't cleared.

So, the attached patch makes the cleanup, without causing the regressions
listed in comment 9.

The question here is if gfortran had to print an error message for this
program:

module types
  public :: undefined
end module types
write (*,*) "undefined types!"
end 

---------------------------------------------------------------------------
PS: I've not checked out the source code from a repo, so the attached patch is
just the output of the diff command (not svn diff).