realslong
begin
  ownrealarray x(0:5) = -11.7, -1.2, -0.5, 0.5, 1.2, 11.7
  integer i
  ownreal r = 64.9

  print string("* PRINT/PRINTFL TEST"); newline
  print fl(pi,4); newlines(2)

  print string("* SQRT TEST"); newline
  ! print string("ISqrt(64) = "); write(isqrt(64), 3); newlines(2)  ;! ISqrt is not a standard perm
 
  print string("* INT/REAL CONVERSION TEST"); newline
  print string("Expected: "); newline
  print string("           'X'    Int(X)   Int Pt(X)   Round(X)   Trunc(X)"); newline
  newline
  print string("          -11.7     -12       -12        -12        -11"); newline
  print string("           -1.2      -1        -2         -1         -1"); newline
  print string("           -0.5       0        -1         -1          0"); newline
  print string("            0.5       1         0          1          0"); newline
  print string("            1.2       1         1          1          1"); newline
  print string("           11.7      12        11         12         11"); newline
  newline
  print string("Actual: "); newline
  print string("           'X'    Int(X)   Int Pt(X)   Round(X)   Trunc(X)"); newline
  print string(""); newline
  for i = 0, 1, 5 cycle
    r = x(i)
    write(int(r),8)
    write(intpt(r),10)
    newline
  repeat
  newline

endofprogram