diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-14 02:35:32 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-08-14 02:35:32 +0000 |
| commit | 408cd90fbdd7fbd5a2f1838d9319f1d394b3de50 (patch) | |
| tree | 0ce1abc745f10f772c834c33ab9089c1b6d9107f | |
| parent | a47075bb592c7f0282cc48f2b580e2bc7c0c00c7 (diff) | |
| download | ppe42-gcc-408cd90fbdd7fbd5a2f1838d9319f1d394b3de50.tar.gz ppe42-gcc-408cd90fbdd7fbd5a2f1838d9319f1d394b3de50.zip | |
2009-08-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/40955
* gfortran.dg/winapi.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@150733 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/winapi.f90 | 23 |
2 files changed, 28 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6719220b193..bb136c54de0 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2009-08-13 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR fortran/40955 + * gfortran.dg/winapi.f90: New test. + 2009-08-13 Janus Weil <janus@gcc.gnu.org> PR fortran/40995 diff --git a/gcc/testsuite/gfortran.dg/winapi.f90 b/gcc/testsuite/gfortran.dg/winapi.f90 new file mode 100644 index 00000000000..0ee3920ff94 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/winapi.f90 @@ -0,0 +1,23 @@ +! { 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 |
