mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 13:48:21 +02:00
17 lines
158 B
ObjectPascal
17 lines
158 B
ObjectPascal
{ %fail }
|
|
{ %OPT=-Fcutf8 }
|
|
program cps;
|
|
|
|
{$mode objfpc}
|
|
{$h+}
|
|
|
|
type
|
|
Utf7String = type AnsiString(CP_UTF7);
|
|
|
|
var
|
|
U7: Utf7String;
|
|
|
|
begin
|
|
U7 := 'U7';
|
|
end.
|