1
2igot=fltarr(4) & iget=findgen(4)
3help,igot,iget,output=igstr & nstrb=n_elements(igstr)
4for k=0,nstrb-1 do print,igstr[k]
5delvar,igot,iget,igstr
6nval= size(igot,/type) + size(iget,/type) +size(igstr,/type)
7
8if nval ne 0 then begin & $
9	print,'FAILURE' &$
10	exit & endif
11i=1 & j=2 & k=3
12.rnew rnewtest
13if(size(i,/type) + size(j,/type) +size(k,/type) eq 0) then print,'ALRIGHT' else $
14   print,'FAILURE'
15
16exit, status=0
17