COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	CMU bug report =F1=  LDE 22-Sep-75
C00004 ENDMK
C⊗;
COMMENT CMU bug report =F1=  LDE 22-Sep-75
 	LENGTH(PHI) returns garbage
;
 begin "F1"
 require 100 new!items;
 itemvar GRIZ;
 set FAP;
 GRIZ←NEW;
 outstr("Length(FAP←phi) = "&cvs(length(FAP←phi))&'15&'12);
 outstr("Length(PHI) ="&cvs(length(phi)))
 end "F1"
COMMENT
 F1 1K CORE
 EXECUTION
 Length(FAP←phi) = 0
 Length(PHI) =-39918
 End of SAIL execution
;