Why would that be necessary?
The entire source code is plain ASCII.
C:\Users\Bart\LazarusProjecten\bugs\Console\cpstring>fpc -FcUTF7 cps.lpr
Error: Unknown codepage "UTF7"
Error: C:\pp\bin\i386-win32\ppc386.exe returned an error exitcode
C:\Users\Bart\LazarusProjecten\bugs\Console\cpstring>fpc -Fc65000 cps.lpr
Error: Unknown codepage "65000"
Error: C:\pp\bin\i386-win32\ppc386.exe returned an error exitcode
C:\Users\Bart\LazarusProjecten\bugs\Console\cpstring>fpc -FcUTF-7 cps.lpr
Error: Unknown codepage "UTF-7"
Error: C:\pp\bin\i386-win32\ppc386.exe returned an error exitcode
And it gets even better:
C:\Users\Bart\LazarusProjecten\bugs\Console\cpstring>fpc -FcUTF8 cps.lpr
Free Pascal Compiler version 3.3.1 [2019/05/12] for i386
Copyright (c) 1993-2018 by Florian Klaempfl and others
Target OS: Win32 for i386
Compiling cps.lpr
cps.lpr(45,9) Error: Unknown codepage "65000"
cps.lpr(45,9) Error: Compilation raised exception internally
Fatal: Compilation aborted
An unhandled exception occurred at $00477B14:
EAccessViolation: Access violation
$00477B14 GETASCII, line 697 of C:/devel/fpc/trunk/rtl/inc/charset.pp
$004C3954 TTYPECONVNODE__SIMPLIFY, line 2926 of ncnv.pas
$004C27F9 TTYPECONVNODE__PASS_TYPECHECK, line 2426 of ncnv.pas
$004CC597 TYPECHECKPASS_INTERNAL, line 81 of pass_1.pas
$004BD2E7 INSERTTYPECONV, line 380 of ncnv.pas
$004CC597 TYPECHECKPASS_INTERNAL, line 81 of pass_1.pas
$00552EFB STATEMENT_BLOCK, line 1367 of pstatmnt.pas
$00538079 BLOCK, line 381 of psub.pas
$00439919 COMPILE, line 395 of parser.pas
$00416674 COMPILE, line 278 of compiler.pas
Bart