blob: 52f3651567fa0295daa6f31e9147538912f7439d [file] [log] [blame]
! { dg-do compile }
! PR 119078 - there should be no warning for dummy arguments
! or abstract interfaces.
module x
implicit none
abstract interface
subroutine foo() bind(c)
end subroutine foo
end interface
interface
subroutine baz() bind(c) ! { dg-warning "wrong number of arguments" }
end subroutine baz
end interface
contains
subroutine tescht(bar) bind(c)
interface
subroutine bar() bind(c)
end subroutine bar
end interface
end subroutine tescht
subroutine t2(bar) bind(c)
procedure(foo) :: bar
end subroutine t2
end module x
subroutine foo(a)
real :: a
end subroutine foo
subroutine bar(b)
real :: b
end subroutine bar
subroutine baz(a) bind(c) ! { dg-warning "wrong number of arguments" }
use iso_c_binding, only : c_int
integer(c_int) :: a
end subroutine baz