summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/binding_label_tests_6.f03
blob: 0784de12e29316efa8aeca91b031d9de7e5cb44c (plain)
1
2
3
4
5
6
! { dg-do compile }
module binding_label_tests_6
  use, intrinsic :: iso_c_binding
  integer(c_int), bind(c, name='my_int') :: my_f90_int_1 ! { dg-error "collides" }
  integer(c_int), bind(c, name='my_int') :: my_f90_int_2 ! { dg-error "collides" }
end module binding_label_tests_6