1! { dg-do compile }
2! PR fortran/37201
3!
4! Before character arrays were allowed as bind(C) return value.
5!
6implicit none
7  INTERFACE
8    FUNCTION my() BIND(C,name="my") RESULT(r) ! { dg-error "cannot be an array" }
9      USE iso_c_binding
10      CHARACTER(kind=C_CHAR) :: r(10)
11    END FUNCTION
12  END INTERFACE
13  INTERFACE
14    FUNCTION two() BIND(C,name="two") RESULT(r) ! { dg-error "cannot be a character string" }
15      USE iso_c_binding
16      CHARACTER(kind=C_CHAR,len=2) :: r
17    END FUNCTION
18  END INTERFACE
19END
20