From 870923cd48e1e715120ff68425437e5b346283a1 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sun, 26 Apr 2020 14:57:16 +0200 Subject: [PATCH] Added test case from PR 94737. 2020-04-26 Thomas Koenig PR fortran/94737 * gfortran.dg/binding_label_tests_34.f90: New test case. --- gcc/testsuite/ChangeLog | 5 ++++ .../gfortran.dg/binding_label_tests_34.f90 | 25 +++++++++++++++++++ 2 files changed, 30 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/binding_label_tests_34.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index cce59449cb03..c4f5f83552ee 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2020-04-26 Thomas Koenig + + PR fortran/94737 + * gfortran.dg/binding_label_tests_34.f90: New test case. + 2020-04-25 David Edelsohn * g++.dg/debug/dwarf2/pr61433.C: Unfail AIX. diff --git a/gcc/testsuite/gfortran.dg/binding_label_tests_34.f90 b/gcc/testsuite/gfortran.dg/binding_label_tests_34.f90 new file mode 100644 index 000000000000..f4f18626ed88 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/binding_label_tests_34.f90 @@ -0,0 +1,25 @@ +! { dg-do compile } +! PR 94737 - global symbols are case-insensitive; an error should be +! reported if they match (see F2018, 9.2, paragraph 2). Original +! test case by Lee Busby. + +module foo + +interface +function func1(ii) result (k) bind(c, name="c_func") + integer :: ii + integer :: k +end function func1 +subroutine sub1(ii,jj) bind(c, name="c_Func") ! { dg-error "Global binding name" } + integer :: ii,jj +end subroutine sub1 +end interface + +contains + +function func2(ii) result (k) + integer :: ii + integer :: k + k = func1(ii) ! { dg-error "Global binding name" } +end function func2 +end module foo -- 2.47.3