gcc/testsuite/gfortran.dg/binding_label_tests_14.f03


1
2
3
4
5
6
7
8
9
10
11
12

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

program main
  implicit none
  interface
     subroutine display() bind(c)
     end subroutine display
  end interface
end program main