1! { dg-do compile }
2! PR 46020 - check for clear error message
3! { dg-options "" }
4FUNCTION F_X(A) bind(c,name='F_X') ! { dg-error "must have length 1" }
5   CHARACTER*(*) F_X
6END FUNCTION
7
8
9FUNCTION F_Y(A) bind(c,name='F_Y') ! { dg-error "must have length 1" }
10   CHARACTER*(2) F_Y
11END FUNCTION
12
13
14