2 ! { dg-options "-std=f2003" }
8 Real( c_double
), Dimension( 1:10 ), Target
:: a
12 Real( c_double
), Dimension( : ), Target
:: aa
13 Type( c_ptr
), Pointer :: b
14 b
= c_loc( aa( 1 ) ) ! was rejected before.
15 b
= c_loc( aa
) ! { dg-error "Fortran 2008: Array of interoperable type at .1. to C_LOC which is nonallocatable and neither assumed size nor explicit size" }