2014-07-12 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / binding_label_tests_14.f03
blob041237bbee5d1f6ea02ba42feb052c5322aab904
1 ! { dg-do run }
2 subroutine display() bind(c)
3   implicit none
4 end subroutine display
6 program main
7   implicit none
8   interface
9      subroutine display() bind(c)
10      end subroutine display
11   end interface
12 end program main