Mercurial > repo
view interps/cfunge/cfunge-src/tests/refc-invalid-deref.b98 @ 12163:c32453f2c426 draft
<oerjan> ` cd ..; undo 12162
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Wed, 20 Nov 2019 04:11:18 +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 ; , @