blob: 9ebfd08ec59e31b0471d146f1b18038380e229ec (
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
|
! { dg-do compile }
!
! Test for PR 35150, reduced testcases by Tobias Burnus
!
module test1
use, intrinsic :: iso_c_binding
implicit none
contains
subroutine sub1(argv) bind(c,name="sub1")
type(c_ptr), intent(in) :: argv
end subroutine
subroutine sub2
type(c_ptr), dimension(1), target :: argv = c_null_ptr
character(c_char), dimension(1), target :: s = c_null_char
call sub1(c_loc(argv))
end subroutine
end module test1
program test2
use iso_c_binding
type(c_ptr), target, save :: argv
interface
subroutine sub1(argv) bind(c)
import
type(c_ptr), intent(in) :: argv
end subroutine sub1
end interface
call sub1(c_loc(argv))
end program test2
!
|
