blob: eb0c970eb53f2d41f8dd79c5ddf3cdc5204236f6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
! { dg-do compile }
!
! TS 29113
! 8.1 Removed restrictions on ISO_C_BINDING module procedures
!
! The function C_F_PROCPOINTER from the intrinsic module ISO_C_BINDING
! has the restriction in ISO/IEC 1539-1:2010 that CPTR and FPTR shall
! not be the C address and interface of a noninteroperable Fortran
! procedure.
!
! [...]
!
! These restrictions are removed.
module m
use ISO_C_BINDING
implicit none
! Declare a non-interoperable Fortran procedure interface.
abstract interface
function foo (x, y)
integer :: foo
integer, intent (in) :: x, y
end function
end interface
contains
subroutine test (cptr, fptr)
type(C_FUNPTR), intent(in) :: cptr
procedure (foo), pointer, intent(out) :: fptr
call c_f_procpointer (cptr, fptr)
end subroutine
end module
|
