blob: b6ca3a67b42bc4678b6a4dcca8a7884da4517148 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
! { 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_" } }
|