! { 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 | |