111
|
1 ! { dg-do run { target *-*-cygwin* *-*-mingw* } }
|
|
2 ! { dg-options "-lkernel32" }
|
|
3 ! Test case provided by Dennis Wassel.
|
|
4
|
|
5 PROGRAM winapi
|
|
6
|
|
7 USE, INTRINSIC :: iso_c_binding
|
|
8 IMPLICIT NONE
|
|
9
|
|
10 INTERFACE
|
|
11 ! Specifically select the lstrlenA version for ASCII.
|
|
12 FUNCTION lstrlen(string) BIND(C, name = "lstrlenA")
|
|
13 USE, INTRINSIC :: iso_c_binding
|
|
14 IMPLICIT NONE
|
|
15 !GCC$ ATTRIBUTES STDCALL :: lstrlen
|
|
16 INTEGER (C_INT) :: lstrlen
|
|
17 CHARACTER(KIND=C_CHAR), INTENT(in) :: string(*)
|
|
18 END FUNCTION lstrlen
|
|
19 END INTERFACE
|
|
20
|
|
21 IF (lstrlen(C_CHAR_"winapi"//C_NULL_CHAR) /= 6) CALL abort()
|
|
22
|
|
23 END PROGRAM winapi
|