aboutsummaryrefslogtreecommitdiff
path: root/Testing/Semantic/t6-1.p
blob: 9669168478d50a8c6365417b13b241ce8e9b32a0 (plain)
1
2
3
4
5
6
7
8
9
10
11
(* ERROR: procedures don't return values *)
program main( input, output );
  var a: integer;
  procedure boo(b: integer);
  begin
    a := 1
  end;
begin
  a := boo(a)
end.