PROC P ()
  INT x:
  REAL32 y:
  x := INT y
: