| Index: gcc/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
|
| diff --git a/gcc/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03 b/gcc/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
|
| index 0f50a08b7e0e37476357eae0dcfe451034a51dbe..cdf1ef880dfd4d4322a071f0e388abeae088d089 100644
|
| --- a/gcc/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
|
| +++ b/gcc/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
|
| @@ -2,18 +2,18 @@
|
| module x
|
| use iso_c_binding
|
| implicit none
|
| - private :: bar ! { dg-warning "PRIVATE but has been given the binding label" }
|
| + private :: bar
|
| private :: my_private_sub
|
| - private :: my_private_sub_2 ! { dg-warning "PRIVATE but has been given the binding label" }
|
| + private :: my_private_sub_2
|
| public :: my_public_sub
|
| contains
|
| - subroutine bar() bind(c,name="foo")
|
| + subroutine bar() bind(c,name="foo") ! { dg-warning "PRIVATE but has been given the binding label" }
|
| end subroutine bar
|
|
|
| subroutine my_private_sub() bind(c, name="")
|
| end subroutine my_private_sub
|
|
|
| - subroutine my_private_sub_2() bind(c)
|
| + subroutine my_private_sub_2() bind(c) ! { dg-warning "PRIVATE but has been given the binding label" }
|
| end subroutine my_private_sub_2
|
|
|
| subroutine my_public_sub() bind(c, name="my_sub")
|
|
|