home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / EXPDUPES.M < prev    next >
Encoding:
Text File  |  1990-10-01  |  328 b   |  25 lines
  1. MODULE C;
  2. (*
  3.  * hier wird getestet, ob wirklich jedesmal der richtige Bez. exportiert wird
  4.  * die alte LOCXP-routine konnte das nicht.
  5.  *)
  6.  
  7. MODULE G;
  8.   EXPORT B;
  9.   TYPE A = CARDINAL;
  10.        B = A;
  11.   END G;
  12.  
  13. VAR b: B;
  14.  
  15. MODULE H;
  16.   EXPORT A;
  17.   TYPE A = CARDINAL;
  18.        B = A;
  19.   END H;
  20.  
  21. VAR a: A;
  22.  
  23. END C.
  24.  
  25.