Subversion Repositories openrisc_2011-10-31

! { dg-do run { target *-*-cygwin* *-*-mingw* } }

! { dg-options "-lkernel32" }

! Test case provided by Dennis Wassel.

PROGRAM winapi

  USE, INTRINSIC :: iso_c_binding

  IMPLICIT NONE

  INTERFACE

     ! Specifically select the lstrlenA version for ASCII.

     FUNCTION lstrlen(string) BIND(C, name = "lstrlenA")

       USE, INTRINSIC :: iso_c_binding

       IMPLICIT NONE

       !GCC$ ATTRIBUTES STDCALL :: lstrlen

       INTEGER (C_INT)          :: lstrlen

       CHARACTER(KIND=C_CHAR), INTENT(in) :: string(*)

     END FUNCTION lstrlen

  END INTERFACE

  IF (lstrlen(C_CHAR_"winapi"//C_NULL_CHAR) /= 6) CALL abort()

END PROGRAM winapi