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

[burnus at gcc dot gnu.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: unassig...@gcc.gnu.org
        ReportedBy: bur...@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