diff options
Diffstat (limited to 'flang/test/Semantics/bind-c01.f90')
| -rw-r--r-- | flang/test/Semantics/bind-c01.f90 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/flang/test/Semantics/bind-c01.f90 b/flang/test/Semantics/bind-c01.f90 index f0546b3eb068..79d53677abc9 100644 --- a/flang/test/Semantics/bind-c01.f90 +++ b/flang/test/Semantics/bind-c01.f90 @@ -29,3 +29,11 @@ subroutine foo() bind(c, name="x6") end subroutine subroutine foo() bind(c, name="x7") end subroutine + +subroutine entries() + +entry e1() bind(C, name="e") + +!ERROR: Two entities have the same global name 'e' +entry e2() bind(C, name="e") +end subroutine |