[Bug fortran/47601] New: Internal Error (mio_component_ref(): Component not found) with strange behavior

["townsend at astro dot wisc.edu" <gcc-bugzilla at gcc dot gnu dot org>]

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

           Summary: Internal Error (mio_component_ref(): Component not
                    found) with strange behavior
           Product: gcc
           Version: 4.6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: townsend@astro.wisc.edu


Created attachment 23238
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=23238
Tar archive with source files and Makefile

The attached code (Makefile included) produces the following error when
compiled:

 gyre_lanr_bvp.f90:8.24:

  use gyre_lanr_jacobian
                        1
Internal Error at (1):
mio_component_ref(): Component not found
make: *** [gyre_lanr_bvp.mod] Error 1

This is similar to problems I've been encountering with another code (see
pr47456). But in cutting down the attached code to find the simplest possible
test case, I've found some pretty strange behavior. 

If I remove the "use gyre_shell" from gyre_lanr_bvp.f90, then the problem goes
away. Likewise, if I remove the "public :: interpolate" from gyre_shell.f90 (so
that the interpolate() routine remains private), then the problem goes away.
This is odd, given that no types or procedures from shell_t are referenced
elsewhere in the code.