path: root/check/type/arrray/pass-real.p

program main ( input, output );
        var a: array [1..10] of real;
begin
	a[3] := 1.1
end.