1! { dg-do run } 2subroutine display() bind(c) 3 implicit none 4end subroutine display 5 6program main 7 implicit none 8 interface 9 subroutine display() bind(c) 10 end subroutine display 11 end interface 12end program main 13