gcc/testsuite/gfortran.dg/binding_label_tests_11.f03

   1 ! { dg-do compile }
   2 module binding_label_tests_11
   3   use iso_c_binding, only: c_int
   4   implicit none
   5 contains
   6   function one() bind(c, name="c_one")
   7     integer(c_int) one
   8     one = 1
   9   end function one
  10 end module binding_label_tests_11