2010-02-10 Joost VandeVondele <jv244@cam.ac.uk>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / binding_label_tests_9.f03

diff --git a/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03 b/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
index 0f50a08..cdf1ef8 100644 (file)
--- a/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
+++ b/gcc/testsuite/gfortran.dg/binding_label_tests_9.f03
@@ -2,18 +2,18 @@
 module x
   use iso_c_binding
   implicit none
 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

-  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
   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
 
   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")
   end subroutine my_private_sub_2
 
   subroutine my_public_sub() bind(c, name="my_sub")