blob: 8424922d43040370b7d036c6d785f357fb097d50 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { 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
|