-- version control marker $Id: cg66cnvt.occ,v 1.1 1995/10/11 10:25:38 djb1 Exp $
int.type i :
real.type r :
SEQ
  --{{{  conversion to/from variables
  i := id.int.type(10)
  r := real.type ROUND i
  check.real.type(r, 10.0, "CNVT000")
  r := real.type TRUNC i
  check.real.type(r, 10.0, "CNVT001")
  
  r := id.real.type(27.7)
  i := int.type ROUND r
  check.int.type(i, 28, "CNVT002")
  i := int.type TRUNC r
  check.int.type(i, 27, "CNVT003")
  --}}}

  --{{{  conversion from constants
  r := real.type ROUND 10(int.type)
  check.real.type(r, 10.0, "CNVT010")
  r := real.type TRUNC 10(int.type)
  check.real.type(r, 10.0, "CNVT011")
  
  i := int.type ROUND 27.7(real.type)
  check.int.type(i, 28, "CNVT012")
  i := int.type TRUNC 27.7(real.type)
  check.int.type(i, 27, "CNVT013")
  --}}}


