! { dg-do compile } | |
! PR 46020 - check for clear error message | |
! { dg-options "" } | |
FUNCTION F_X(A) bind(c,name='F_X') ! { dg-error "must have length 1" } | |
CHARACTER*(*) F_X | |
END FUNCTION | |
FUNCTION F_Y(A) bind(c,name='F_Y') ! { dg-error "must have length 1" } | |
CHARACTER*(2) F_Y | |
END FUNCTION | |