gcc/testsuite/gfortran.dg/binding_label_tests_15.f03

   1 ! { dg-do compile }
   2 ! Verify that an error is correctly reported if multiple identifiers are given
   3 ! with a bind(c) statement that has a NAME= specifier.
   4 module m
   5   use iso_c_binding
   6   implicit none
   7   integer(c_int), bind(C, name="") :: a,b ! { dg-error "Multiple identifiers" }
   8   integer(c_int), bind(C, name="bob") :: c,d ! { dg-error "Multiple identifiers" }
   9   integer(c_int) :: e,f
  10   bind(c, name="foo") :: e,f ! { dg-error "Multiple identifiers" }
  11 end module m
  12