
  TYPE
    clt$longreal = record
      case 1 .. 3 of
      = 1 =
        long_real: longreal,
      = 2 =
        first_real: real,
        second_real: real,
      = 3 =
        breakdown: clt$longreal_breakdown,
      casend,
    recend;

*copyc clt$longreal_breakdown
