home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / examples / src / Fail.mod < prev    next >
Encoding:
Text File  |  1994-09-26  |  152 b   |  10 lines
  1. (* @B+ turn on array bounds checking *)
  2. MODULE Fail ;
  3.  
  4. VAR x : INTEGER ; array : ARRAY [0..9] OF INTEGER ;
  5.  
  6. BEGIN
  7.   x := 42 ;
  8.   array[x] := x
  9. END Fail.
  10.