Path: utzoo!utgpu!jarvis.csri.toronto.edu!clyde.concordia.ca!rutgers!uwm.edu!cs.utexas.edu!rice!sun-spots-request
From: megatest!djones@decwrl.dec.com (Dave Jones)
Newsgroups: comp.sys.sun
Subject: BUG, set-variables in pc, Sun UNIX 4.2 Release 3.4
Keywords: SunOS
Message-ID: <4648@brazos.Rice.edu>
Date: 1 Feb 90 21:27:59 GMT
Sender: root@rice.edu
Organization: Sun-Spots
Lines: 21
Approved: Sun-Spots@rice.edu
X-Sun-Spots-Digest: Volume 9, Issue 22, message 6 of 16

Assigning from a small set-variable to a larger one copies random bits
from beyond the storage area allocated to the small set. I haven't tried
it on the SPARC machine yet.

program p(input, output);

  type
       t1 = set of 1..999;
       t2 = set of 1..2;

   var
       s1: t1;	
       s2: t2;	
       s3: t1;

begin	
       s3 := [1..999];
       s2 := [];
       s1 := s2;
       writeln( s1 = [] );
end.