! { dg-do compile } | |
! | |
! PR fortran/52542 | |
! | |
! Ensure that the procedure myproc is Bind(C). | |
! | |
! Contributed by Mat Cross of NAG | |
! | |
interface | |
subroutine s() bind(c) | |
end subroutine s | |
end interface | |
procedure(s) :: myproc | |
call myproc() | |
end | |
! { dg-final { scan-assembler-not "myproc_" } } |