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") |