gcc/testsuite/gfortran.dg/c_loc_tests_9.f03

   1 ! { dg-do compile }
   2 subroutine aaa(in)
   3   use iso_c_binding
   4   implicit none
   5   CHARACTER(KIND=C_CHAR), DIMENSION(*), TARGET  :: in
   6   type(c_ptr) :: cptr
   7   cptr = c_loc(in)
   8 end subroutine aaa
   9
  10