1! { dg-do run { target *-*-cygwin* *-*-mingw* } }
2! { dg-options "-lkernel32" }
3! Test case provided by Dennis Wassel.
4
5PROGRAM 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
23END PROGRAM winapi
24