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