
  TYPE
    clt$numeric_operand_info = record
      case initialized: boolean of
      = FALSE =
        ,
      = TRUE =
        sign: -1 .. 1,
        min_real_value: longreal,
        max_real_value: longreal,
        min_integer_value: integer,
        max_integer_value: integer,
        radix: record
          default: 2 .. 16,
          case established: boolean of
          = FALSE =
            ,
          = TRUE =
            value: 2 .. 16,
            specified: boolean,
          casend,
        recend,
      casend,
    recend;

