[Bug fortran/40629] New: Host association problem

[philippe dot marguinaud at meteo dot fr]

The following code (inspired from host_assoc_function_1.f90) breaks f951:

MODULE m
  REAL :: x
CONTAINS
  SUBROUTINE s
  CONTAINS
    SUBROUTINE inner
      y = x(1, 1)
    END SUBROUTINE
    FUNCTION x(n, m)
    END FUNCTION
  END SUBROUTINE
END MODULE

I have an internal compiler error with f951; I have checked out and built the
latest version of fortran this morning. Note that host_assoc_function_1.f90
compiles OK.


-- 
           Summary: Host association problem
           Product: gcc
           Version: 4.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: philippe dot marguinaud at meteo dot fr
 GCC build triplet: x86_64-unknown-linux-gnu
  GCC host triplet: x86_64-unknown-linux-gnu
GCC target triplet: x86_64-unknown-linux-gnu


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