gistfile1.txt

$ cat system.pas
unit system;
interface
  procedure test;
implementation

  procedure test;
    var t: longint;
  begin
  begin t:=1; end;
    t:=t+2;
  end;

begin
end.

$ ./pp -Ooconstprop -Oodeadstore -al -Si -O3 system
Free Pascal Compiler version 2.7.1 [2012/12/06] for i386
Copyright (c) 1993-2012 by Florian Klaempfl and others
Note: Switching assembler to default source writing assembler
Target OS: Linux for i386
Compiling system.pas
Unreferenced assignment: 9
Assembling system
14 lines compiled, 0.0 sec
1 note(s) issued