gcc/testsuite/gfortran.dg/c_loc_tests_8.f03

   1 ! { dg-do compile }
   2 ! Verifies that the c_loc scalar pointer tests recognize the string of length
   3 ! greater than one as not being allowable for the parameter to c_loc.
   4 module x
   5 use iso_c_binding
   6 contains
   7 SUBROUTINE glutInit_f03()
   8   TYPE(C_PTR), DIMENSION(1), TARGET :: argv=C_NULL_PTR
   9   character(kind=c_char, len=5), target :: string="hello"
  10   argv(1)=C_LOC(string) ! { dg-error "must have a length of 1" }
  11 END SUBROUTINE
  12 end module x
  13