module mod contains function foo (arg) integer foo (10) integer arg foo = arg end function end module
use mod call bar (foo) contains subroutine bar (arg) interface function arg (x) integer arg (10) integer x end function end interface print *, arg (10) end subroutine end produces test.f90:11.12: call bar (foo) 1 Warning: Actual argument contains too few elements for dummy argument 'arg' (1/10) at (1) -- Summary: [Regression 4.4,4.3] Array valued actual procedure argument rejected Product: gcc Version: 4.4.0 Status: UNCONFIRMED Keywords: rejects-valid Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: pault at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36233