1! { dg-do compile } 2! 3! PR fortran/52542 4! 5! Ensure that the procedure myproc is Bind(C). 6! 7! Contributed by Mat Cross of NAG 8! 9interface 10 subroutine s() bind(c) 11 end subroutine s 12end interface 13procedure(s) :: myproc 14call myproc() 15end 16! { dg-final { scan-assembler-not "myproc_" } } 17