gcc/testsuite/gfortran.dg/binding_label_tests_14.f03

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