gcc/testsuite/gfortran.dg/c_loc_tests_7.f03

   1 ! { dg-do compile }
   2 module c_loc_tests_7
   3 use iso_c_binding
   4 contains
   5 SUBROUTINE glutInit_f03()
   6   TYPE(C_PTR), DIMENSION(1), TARGET :: argv=C_NULL_PTR
   7   CHARACTER(C_CHAR), DIMENSION(1), TARGET :: empty_string=C_NULL_CHAR
   8   argv(1)=C_LOC(empty_string)
   9 END SUBROUTINE
  10 end module c_loc_tests_7