Merge from mainline (167278:168000).
[official-gcc/graphite-test-results.git] / gcc / testsuite / gfortran.dg / binding_label_tests_4.f03
blob5a0767d878555d43fdf57aec0c45f118463d03be
1 ! { dg-do compile }
2 module A
3   use, intrinsic :: iso_c_binding
4 contains
5   subroutine pA() bind(c, name='printf') ! { dg-error "collides" }
6     print *, 'hello from pA'
7   end subroutine pA
8 end module A
10 module B
11   use, intrinsic :: iso_c_binding
13 contains
14   subroutine pB() bind(c, name='printf') ! { dg-error "collides" }
15     print *, 'hello from pB'
16   end subroutine pB
17 end module B
19 module C
20 use A
21 use B ! { dg-error "Can't open module file" }
22 end module C