1*44176Sbostic(* 2*44176Sbostic * Test of reals. 3*44176Sbostic *) 4*44176Sbostic 5*44176Sbosticprogram realtest (input, output); 6*44176Sbosticvar 7*44176Sbostic x : real; 8*44176Sbostic y : real; 9*44176Sbostic 10*44176Sbosticfunction f (x : real) : real; 11*44176Sbosticbegin 12*44176Sbostic f := 3.14*x; 13*44176Sbosticend; 14*44176Sbostic 15*44176Sbosticbegin 16*44176Sbostic y := 3.0; 17*44176Sbostic x := f(y); 18*44176Sbosticend. 19