OSDN Git Service

0f50a08b7e0e37476357eae0dcfe451034a51dbe
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / binding_label_tests_9.f03
1 ! { dg-do compile }
2 module x
3   use iso_c_binding
4   implicit none
5   private :: bar ! { dg-warning "PRIVATE but has been given the binding label" }
6   private :: my_private_sub
7   private :: my_private_sub_2 ! { dg-warning "PRIVATE but has been given the binding label" }
8   public :: my_public_sub
9 contains
10   subroutine bar() bind(c,name="foo") 
11   end subroutine bar
12   
13   subroutine my_private_sub() bind(c, name="")
14   end subroutine my_private_sub
15
16   subroutine my_private_sub_2() bind(c) 
17   end subroutine my_private_sub_2
18
19   subroutine my_public_sub() bind(c, name="my_sub")
20   end subroutine my_public_sub
21 end module x
22
23 ! { dg-final { cleanup-modules "x" } }