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. 4module x 5use iso_c_binding 6contains 7SUBROUTINE 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) 11END SUBROUTINE 12end module x 13