17 lines
285 B
Fortran
17 lines
285 B
Fortran
! { 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_" } }
|