Re: [open-cobol-list] Has this PERFORM problem been reported already?

[Vince Coen]

On Friday 07 May 2010, Jonathan Beit-Aharon wrote:
> Apologies -- my mistake.
> My problem only appears where I used the -P option.
> 

Works here:

Code as free format
-----------------
 identification division.
 program-id.  perftest.
 data division.
 working-storage section.
 01 a pic s9(2) value 2.
 procedure division.
 main section.
     go to pass.
     perform varying a from 3 by 1 until a > 4
     end-perform
     go to fail.
 pass.
     display "perftest seems to have passed. A should be 2, a=" a.
 fail.
     stop run.
-----------------

address@hidden a]$ cobc -free -P test2.cbl
address@hidden a]$ cobc -free -x test2.cbl
address@hidden a]$ ./test2
perftest seems to have passed. A should be 2, a=+02
address@hidden a]$ cobc -V
cobc (OpenCOBOL) 1.1.0
Copyright (C) 2001,2002,2003,2004,2005,2006,2007 Keisuke Nishida
Copyright (C) 2006,2007,2008,2009,2010 Roger While
This is free software; see the source for copying conditions.  There is NO
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
Built     Mar 13 2010 20:20:06
Packaged  Mar 12 2010 15:58:59 UTC
C version "4.4.1"

=====================================

Vince