Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/winapi.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
comparison
equal
deleted
inserted
replaced
111:04ced10e8804 | 131:84e7813d76e9 |
---|---|
16 INTEGER (C_INT) :: lstrlen | 16 INTEGER (C_INT) :: lstrlen |
17 CHARACTER(KIND=C_CHAR), INTENT(in) :: string(*) | 17 CHARACTER(KIND=C_CHAR), INTENT(in) :: string(*) |
18 END FUNCTION lstrlen | 18 END FUNCTION lstrlen |
19 END INTERFACE | 19 END INTERFACE |
20 | 20 |
21 IF (lstrlen(C_CHAR_"winapi"//C_NULL_CHAR) /= 6) CALL abort() | 21 IF (lstrlen(C_CHAR_"winapi"//C_NULL_CHAR) /= 6) STOP 1 |
22 | 22 |
23 END PROGRAM winapi | 23 END PROGRAM winapi |