16 lines
533 B
Fortran
16 lines
533 B
Fortran
! { dg-do compile }
|
|
! This file must be compiled AFTER binding_label_tests_10.f03, which it
|
|
! should be because dejagnu will sort the files.
|
|
module binding_label_tests_10_main
|
|
use iso_c_binding
|
|
implicit none
|
|
integer(c_int), bind(c,name="c_one") :: one ! { dg-error "collides" }
|
|
end module binding_label_tests_10_main
|
|
|
|
program main
|
|
use binding_label_tests_10 ! { dg-error "collides" }
|
|
use binding_label_tests_10_main
|
|
end program main
|
|
|
|
! { dg-final { cleanup-modules "binding_label_tests_10_main binding_label_tests_10" } }
|