1*7529de29Sbostic(* 2*7529de29Sbostic * Test of reals and longreals. 3*7529de29Sbostic *) 4*7529de29Sbostic 5*7529de29Sbosticmodule main; 6*7529de29Sbosticvar 7*7529de29Sbostic x : longreal; 8*7529de29Sbostic y : real; 9*7529de29Sbostic 10*7529de29Sbosticprocedure f (x : real) : longreal; 11*7529de29Sbosticbegin 12*7529de29Sbostic return longfloat(3.14*x); 13*7529de29Sbosticend f; 14*7529de29Sbostic 15*7529de29Sbosticbegin 16*7529de29Sbostic y := 3.0; 17*7529de29Sbostic x := f(y); 18*7529de29Sbosticend main. 19