C FILE: STRING.F SUBROUTINE FOO(A,B,C,D) CHARACTER*5 A, B CHARACTER*(*) C,D Cf2py intent(in) a,c Cf2py intent(inout) b,d A(1:1) = 'A' B(1:1) = 'B' C(1:1) = 'C' D(1:1) = 'D' END C END OF FILE STRING.F