-- version control marker $Id: cgtest64.occ,v 1.3 1995/10/11 10:21:29 djb1 Exp $

PROC cgtest64 (CHAN OF BYTE keyb, scr, err)
  #INCLUDE "cgmain.occ"
  #INCLUDE "cgreal.occ"

  INT key :
  BOOL x :
  SEQ
    init ("CG test 64", "MYTYPE: REAL32 arithmetic, coercion")

    --{{{  Parameterising for MYREAL
    DATA TYPE MYREAL IS REAL32 :
    
    MYREAL FUNCTION id.MYREAL(VAL MYREAL x) IS x :
    PROC check.MYREAL(VAL MYREAL x, y, VAL []BYTE str)
      check.REAL32(REAL32 ROUND x, REAL32 ROUND y, str)
    :
    
    VAL title.str IS "MYTYPE: REAL32 arithmetic" :
    
    --}}}
    #INCLUDE "cg60myr.occ"

    finish ()
:
