gap07_convert.mod 280 B

12345678
  1. MODULE Gap07Convert;
  2. (* GAP gap07-convert-builtin: CONVERT(T, x) is not implemented.
  3. Corpus: procconv2.
  4. EXPECT: undeclared identifier (CONVERT). *)
  5. FROM SYSTEM IMPORT ADDRESS;
  6. PROCEDURE foo; BEGIN END foo;
  7. VAR a : ADDRESS;
  8. BEGIN a := CONVERT(ADDRESS, foo) END Gap07Convert.