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