Talk:CRC-32: Difference between revisions
→REXX: please test this
Walterpachl (talk | contribs) (→REXX: tyüo) |
Walterpachl (talk | contribs) (→REXX: please test this) |
||
Line 77:
</pre>
I would think that Rexx on VM or TSO would fail as well but have no longer access to try. Anyone else?? --[[User:Walterpachl|Walterpachl]] ([[User talk:Walterpachl|talk]]) 05:09, 18 August 2013 (UTC)
:: Could you please run this test on your Rexx(es)?
<lang rexx>/* REXX ***************************************************************
* 18.08.2013 Walter Pachl Test c2d behavior
**********************************************************************/
cnt.=0
c=d2c(999999999)
If c2x(c)='3B9AC9FF' Then cnt.0ok=cnt.0ok+1
d=c2d(c)
Signal on Syntax
d1=d2c(d+1)
cnt.0err=cnt.0err+1
back:
Say cnt.0ok 'Tests ok'
Say cnt.0err 'Tests failed'
Exit
syntax:
cnt.0ok=cnt.0ok+1
Signal back</lang>
--[[User:Walterpachl|Walterpachl]] ([[User talk:Walterpachl|talk]]) 05:53, 18 August 2013 (UTC)
| |||