1(* 2 * Test of reals and longreals. 3 *) 4 5module main; 6var 7 x : longreal; 8 y : real; 9 10procedure f (x : real) : longreal; 11begin 12 return longfloat(3.14*x); 13end f; 14 15begin 16 y := 3.0; 17 x := f(y); 18end main. 19