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