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