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

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

  INT key :
  BOOL x :
  SEQ
    init ("CG test 55", "MYTYPE: REAL64 arithmetic")

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

    finish ()
:
