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
   6   private :: my_private_sub
   7   private :: my_private_sub_2
   8   public :: my_public_sub
   9 contains
  10   subroutine bar() bind(c,name="foo") ! { dg-warning "PRIVATE but has been given the binding label" }
  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) ! { dg-warning "PRIVATE but has been given the binding label" }
  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" } }