summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/tbs/tb0315.pp
blob: ff1c7a83afaacfcb73a94a3b56b4feb66fae76d3 (plain)
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.