! { dg-do run }
subroutine display() bind(c)
implicit none
end subroutine display
program main
interface
end interface
end program main