fpcsrc/tests/tbs/tb0315.pp


1
2
3
4
5
6
7
8
9
10

{ 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.