4 ! Before character arrays were allowed as bind(C) return value.
8 FUNCTION my() BIND(C,name="my") RESULT(r) ! { dg-error "cannot be an array" }
10 CHARACTER(kind=C_CHAR) :: r(10)
14 FUNCTION two() BIND(C,name="two") RESULT(r) ! { dg-error "cannot be a character string" }
16 CHARACTER(kind=C_CHAR,len=2) :: r