2 ! PR 94737 - global symbols are case-insensitive; an error should be
3 ! reported if they match (see F2018, 9.2, paragraph 2). Original
4 ! test case by Lee Busby.
9 function func1(ii
) result (k
) bind(c
, name
="c_func")
13 subroutine sub1(ii
,jj
) bind(c
, name
="c_Func") ! { dg-error "Global binding name" }
20 function func2(ii
) result (k
)
23 k
= func1(ii
) ! { dg-error "Global binding name" }