[Bug fortran/69963] ICE out of memory on displaced implicit character

[lkrupp at gcc dot gnu.org]

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

lkrupp at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|NEW                         |RESOLVED
                 CC|                            |lkrupp at gcc dot gnu.org
         Resolution|---                         |FIXED

--- Comment #4 from lkrupp at gcc dot gnu.org ---
Fixed in revision 240168.

The problem: 

In this example, 

subroutine s
  real x
  implicit character (a)

  a1 = 'z'
end subroutine s

the implicit statement is processed, the default typespec corresponding to the
letter 'a' has its component charlen pointer set.  When the implicit statement
is then rejected as being out of order, all of the charlen structures it
created are freed, default_type['a']->u.cl is left dangling, and bad things
happen when 'a1' is parsed.

This patch clears any default typespecs pointing to charlen structures that are
about to be freed.