1*44128Sbostic(* 2*44128Sbostic * Test of reals and longreals. 3*44128Sbostic *) 4*44128Sbostic 5*44128Sbosticmodule main; 6*44128Sbosticvar 7*44128Sbostic x : longreal; 8*44128Sbostic y : real; 9*44128Sbostic 10*44128Sbosticprocedure f (x : real) : longreal; 11*44128Sbosticbegin 12*44128Sbostic return longfloat(3.14*x); 13*44128Sbosticend f; 14*44128Sbostic 15*44128Sbosticbegin 16*44128Sbostic y := 3.0; 17*44128Sbostic x := f(y); 18*44128Sbosticend main. 19