summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/binding_label_tests_14.f03
blob: 041237bbee5d1f6ea02ba42feb052c5322aab904 (plain)
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