Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/c_loc_tests_7.f03 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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