111
|
1 ! { dg-do compile }
|
|
2 module c_assoc_2
|
|
3 use, intrinsic :: iso_c_binding, only: c_ptr, c_associated
|
|
4
|
|
5 contains
|
|
6 subroutine sub0(my_c_ptr) bind(c)
|
|
7 type(c_ptr), value :: my_c_ptr
|
|
8 type(c_ptr), pointer :: my_c_ptr_2
|
|
9 integer :: my_integer
|
|
10
|
|
11 if(.not. c_associated(my_c_ptr)) then
|
131
|
12 STOP 1
|
111
|
13 end if
|
|
14
|
|
15 if(.not. c_associated(my_c_ptr, my_c_ptr)) then
|
131
|
16 STOP 2
|
111
|
17 end if
|
|
18
|
|
19 if(.not. c_associated(my_c_ptr, my_c_ptr, my_c_ptr)) then ! { dg-error "Too many arguments in call" }
|
131
|
20 STOP 3
|
111
|
21 end if
|
|
22
|
|
23 if(.not. c_associated()) then ! { dg-error "Missing actual argument" }
|
131
|
24 STOP 4
|
111
|
25 end if
|
|
26
|
|
27 if(.not. c_associated(my_c_ptr_2)) then
|
131
|
28 STOP 5
|
111
|
29 end if
|
|
30
|
|
31 if(.not. c_associated(my_integer)) then ! { dg-error "shall have the type TYPE.C_PTR. or TYPE.C_FUNPTR." }
|
131
|
32 STOP 6
|
111
|
33 end if
|
|
34 end subroutine sub0
|
|
35
|
|
36 end module c_assoc_2
|