summaryrefslogtreecommitdiff
path: root/tests/remap/fail/args.1/rm400.ngc
blob: a1186c2459b842d5ceaed0d0fbafa19e9de9e2cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
o<rm400> sub
(debug, M400 call_level= #<_call_level> remap_level=#<_remap_level>)

o100 if [EXISTS[#<P>]]
     (debug, P word set: #<P>)
o100 else
     (debug, P word missing)
o100 endif

o120 if [EXISTS[#<Q>]]
     (debug, Q word set: #<Q>)
o120 else
     (debug, Q word missing)
o120 endif

o<rm400> endsub
m2
%