begin

    comment library 1;

    real
        x;
    x := 1.;
    outreal(1, x);
end