pro errtest,file

on_ioerror,err

openr,lun,file,/get_lun
Print,'We got this far!'
goto,close
err: Print,'Problem opening '+file
close:
free_lun,lun

return
end