gap21_fwd_record_field.mod 448 B

1234567891011
  1. MODULE Gap21FwdRecordField;
  2. (* NOT legal Modula-2: a record (or variant) field's type is declared
  3. later; only a POINTER's base type may forward-reference. Declaration
  4. before use is required; V3 correctly rejects it.
  5. Class: decl-order (gm2 leniency).
  6. Corpus: record14.def, record15.def, record16.def.
  7. V3: undeclared identifier. *)
  8. TYPE r = RECORD f : s END;
  9. s = RECORD v : INTEGER END;
  10. VAR x : r;
  11. BEGIN END Gap21FwdRecordField.