gcc/testsuite/gfortran.dg/winapi.f90

   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