fpc/tests/tbs/tb0315.pp
2000-11-30 22:38:14 +00:00

11 lines
149 B
ObjectPascal

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