Mercurial > repo
view interps/cfunge/cfunge-src/tests/refc-invalid-deref.b98 @ 12281:3527774a6d7f draft
<oerjan> slwd `fetch//s,Ego,Eso,
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Wed, 01 Jan 2020 02:31:28 +0000 |
parents | 859f9b4339e6 |
children |
line wrap: on
line source
v >0a"CFER oN" >:#,_@ ; This program tests invalid D in REFC ; >#^"CFER"4(nv v < >1. #v 0D "DAB" >:#,_ @ ; Derefence 0 ; >a"DOOG">:#,_v v < >2. #v 01-D "DAB" >:#,_ @ ; Derefence negative ; >a"DOOG">:#,_v v < >3. 45+ #v D "DAB" >:#,_ @ ; Derefence postive ; >a"DOOG">:#,_v v < >4. #v nD "DAB" >:#,_ @ ; Derefence on empty stack ; >a"DOOG">:#,_v v < a ; That's all ; , @