begin

    comment library 1;

    real
        x;
    x := - 1.0;
    outreal(1, 0^x)
end