15 lines
425 B
Fortran
15 lines
425 B
Fortran
! { 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
|