blob: 6590db1d1d69341f2a5b489d169fda6fe7c09ea6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { dg-do compile }
module bind_c_array_params
use, intrinsic :: iso_c_binding
implicit none
contains
subroutine sub0(assumed_array) bind(c) ! { dg-error "cannot be an argument" }
integer(c_int), dimension(:) :: assumed_array
end subroutine sub0
subroutine sub1(deferred_array) bind(c) ! { dg-error "cannot" }
integer(c_int), pointer :: deferred_array(:)
end subroutine sub1
end module bind_c_array_params
|
