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: [email protected]
ReportedBy: [email protected]
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
