path: root/check/type/assign/fail-real.p

program main ( input, output );
        var a: real;
begin
	a := 1
end.