2 ! { dg-options "-std=f2003" }
4 subroutine foo(a
,b
,c
,d
)
5 use iso_c_binding
, only
: c_loc
, c_ptr
7 real, intent(in
), target
:: a(:)
8 real, intent(in
), target
:: b(5)
9 real, intent(in
), target
:: c(*)
10 real, intent(in
), target
, allocatable
:: d(:)
15 ptr
= C_LOC(a
) ! { dg-error "Fortran 2008: Array of interoperable type at .1. to C_LOC which is nonallocatable and neither assumed size nor explicit size" }