gcc/testsuite/gfortran.dg/binding_label_tests_12.f03

   1 ! { dg-do run }
   2 ! This verifies that the compiler will correctly accpet the name="", write out
   3 ! an empty string for the binding label to the module file, and then read it
   4 ! back in.  Also, during gfc_verify_binding_labels, the name="" will prevent
   5 ! any verification (since there is no label to verify).
   6 module one
   7 contains
   8   subroutine foo() bind(c)
   9   end subroutine foo
  10 end module one
  11
  12 module two
  13 contains
  14   ! This procedure is only used accessed in C
  15   ! as procedural pointer
  16   subroutine foo() bind(c, name="")
  17   end subroutine foo
  18 end module two
  19
  20 use one, only: foo_one => foo
  21 use two, only: foo_two => foo
  22 end
  23
  24 ! { dg-final { cleanup-modules "one two" } }