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