[Bug fortran/52365] New: Procedure interface wrongly imported into interface without IMPORT

["burnus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

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

             Bug #: 52365
           Summary: Procedure interface wrongly imported into interface
                    without IMPORT
    Classification: Unclassified
           Product: gcc
           Version: 4.7.0
            Status: UNCONFIRMED
          Keywords: accepts-invalid
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned@gcc.gnu.org
        ReportedBy: burnus@gcc.gnu.org


The following program is wrongly accepted.

Expected an error such as:
 FOO has an implicit interface, therefore it cannot be used as a proc-interface


Found at
http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/e01ca2e546ecf0fe#


module m
  interface
    subroutine foo()
    end subroutine foo
  end interface

  interface
    subroutine bar(x)
       ! import foo
       procedure(foo) :: x
    end subroutine bar
  end interface
end module