diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-19 12:30:17 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-11-19 12:30:17 +0000 |
| commit | 86f0974ba6ff1bd2fca6c94ceabb269f1596fb4f (patch) | |
| tree | b493494cb6083dff17304745ece59d339bfbb68b /gcc/testsuite/gfortran.dg/bind_c_usage_10.f03 | |
| parent | e778c973378b00b3b72073a8d4a721dba4744224 (diff) | |
| download | gcc-86f0974ba6ff1bd2fca6c94ceabb269f1596fb4f.tar.gz | |
2007-11-19 Tobias Burnus <burnus@net-b.de>
PR fortran/34079
* decl.c (gfc_match_entry): Support BIND(C).
(gfc_match_subroutine): Fix comment typo.
2007-11-19 Tobias Burnus <burnus@net-b.de>
PR fortran/34079
* gfortran.dg/bind_c_usage_10_c.c: New.
* gfortran.dg/bind_c_usage_10.f03: New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130288 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/bind_c_usage_10.f03')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/bind_c_usage_10.f03 | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/bind_c_usage_10.f03 b/gcc/testsuite/gfortran.dg/bind_c_usage_10.f03 new file mode 100644 index 00000000000..c6f2b79c1fa --- /dev/null +++ b/gcc/testsuite/gfortran.dg/bind_c_usage_10.f03 @@ -0,0 +1,73 @@ +! { dg-do run } +! { dg-additional-sources bind_c_usage_10_c.c } +! +! PR fortran/34079 +! +! Check BIND(C) for ENTRY +! +module mod + use iso_c_binding + implicit none +contains + subroutine sub1(j) bind(c, name="mySub1") + integer(c_int) :: j + real(c_float) :: x + j = 5 + return + entry sub1ent(x) + x = 55.0 + end subroutine sub1 + subroutine sub2(j) + integer(c_int) :: j + real(c_float) :: x + j = 6 + return + entry sub2ent(x) bind(c, name="mySubEnt2") + x = 66.0 + end subroutine sub2 + subroutine sub3(j) bind(c, name="mySub3") + integer(c_int) :: j + real(c_float) :: x + j = 7 + return + entry sub3ent(x) bind(c, name="mySubEnt3") + x = 77.0 + end subroutine sub3 + subroutine sub4(j) + integer(c_int) :: j + real(c_float) :: x + j = 8 + return + entry sub4ent(x) bind(c) + x = 88.0 + end subroutine sub4 + + integer(c_int) function func1() bind(c, name="myFunc1") + real(c_float) :: func1ent + func1 = -5 + return + entry func1ent() + func1ent = -55.0 + end function func1 + integer(c_int) function func2() + real(c_float) :: func2ent + func2 = -6 + return + entry func2ent() bind(c, name="myFuncEnt2") + func2ent = -66.0 + end function func2 + integer(c_int) function func3() bind(c, name="myFunc3") + real(c_float) :: func3ent + func3 = -7 + return + entry func3ent() bind(c, name="myFuncEnt3") + func3ent = -77.0 + end function func3 + integer(c_int) function func4() + real(c_float) :: func4ent + func4 = -8 + return + entry func4ent() bind(c) + func4ent = -88.0 + end function func4 +end module mod |