gcc/testsuite/gfortran.dg/c_loc_tests_10.f03

   1 ! { dg-do compile }
   2 subroutine aaa(in)
   3   use iso_c_binding
   4   implicit none
   5   integer(KIND=C_int), DIMENSION(:), TARGET  :: in
   6   type(c_ptr) :: cptr
   7   cptr = c_loc(in) ! { dg-error "not C interoperable" }
   8 end subroutine aaa