blob: 041237bbee5d1f6ea02ba42feb052c5322aab904 [file] [log] [blame]
! { 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