freepascal.compiler/tests/tbs/tb0315.pp

{ test for const string that is a char }

const
    C ='D';
    D = 'AD';
    PP : string[length(D)] = D;
    P : String[length(c)] = C;

begin
end.