[Bug fortran/47601] [OOP] Internal Error: mio_component_ref(): Component not found

[dominiq at lps dot ens.fr]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=47601

--- Comment #24 from Dominique d'Humieres <dominiq at lps dot ens.fr> 2011-05-28 21:15:44 UTC ---
(In reply to comment #23)
> Here is an updated patch: ...

It passes my tests. Thanks.

Just one question:

+      if (q)
+        associate_integer_pointer (p, q);

What happens if q==0?