gcc/testsuite/gfortran.dg/c_loc_tests_6.f03

   1 ! { dg-do compile }
   2 ! Verifies that the c_loc scalar pointer tests recognize the string of length
   3 ! one as 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(C_CHAR), DIMENSION(10), TARGET :: empty_string=C_NULL_CHAR
  10   argv(1)=C_LOC(empty_string)
  11 END SUBROUTINE
  12 end module x
  13 ! { dg-final { cleanup-modules "x" } }