1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
/* * procedure call with value parameters with a type mismatch */ module procedure_call_value_parameters_wrong_types; var i : integer := 1; procedure proc( x : integer ); var l : integer; begin l := x; i := l; end begin proc( true ); end