diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-08-14 02:35:32 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2009-08-14 02:35:32 +0000 |
| commit | 525fa3235ec5f883c89f699198eb8e73dbdc7d82 (patch) | |
| tree | 0ce1abc745f10f772c834c33ab9089c1b6d9107f /gcc | |
| parent | 3e3877f8bd54edfccaa4605a25c5ba0ccb1f8df1 (diff) | |
| download | gcc-525fa3235ec5f883c89f699198eb8e73dbdc7d82.zip gcc-525fa3235ec5f883c89f699198eb8e73dbdc7d82.tar.gz gcc-525fa3235ec5f883c89f699198eb8e73dbdc7d82.tar.bz2 | |
re PR fortran/40955 (STDCALL attributes are not saved in the .MOD files)
2009-08-13 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/40955
* gfortran.dg/winapi.f90: New test.
From-SVN: r150733
Diffstat (limited to 'gcc')
| -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 6719220..bb136c5 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 0000000..0ee3920 --- /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 |