[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[open-cobol-list] SUBTRACT and std=mf option Was : About the Overflow
From: |
Peg |
Subject: |
[open-cobol-list] SUBTRACT and std=mf option Was : About the Overflow |
Date: |
Thu Jun 2 04:18:30 2005 |
User-agent: |
Mozilla Thunderbird 1.0.2 (Windows/20050317) |
Hello Alain Lucari,
Hello all,
Alain Lucari wrote:
> I am not able to see that : I use Linux and an old
> version of Open-Cobol without "flavours".
> Perhaps you can try some others flavours ?
Sorry, My English is not fluent.
Is this a meaning "Please test in two or more environments" ?
I moved the following codes by two or more environment and version.
------------------------------
IDENTIFICATION DIVISION.
PROGRAM-ID. TESTSUB.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA1 PIC 9(2) VALUE 5.
01 DATA2 PIC 9(2) VALUE 5.
PROCEDURE DIVISION.
COMPUTE DATA1 = DATA1 - 1.
SUBTRACT 1 FROM DATA2.
DISPLAY DATA1 " " DATA2.
------------------------------
This is a result.
It seems to obtain a normal result in OpenCOBOL 0.30.
DebianLinux 2.4.24 (OpenCOBOL 0.32)
$ cobc TESTFLOW.COB -free -std=mf
$ ./TESTFLOW
04 96 <- NG
VineLinux 3.0 (OpenCOBOL 0.30)
$ cobc TESTFLOW.COB -free -std=mf
$ ./TESTFLOW
04 96 <- OK
Cygwin 1.5.17 (OpenCOBOL 0.33 CVS 20050601)
$ cobc TESTFLOW.COB -free -std=mf
$ ./TESTFLOW
04 96 <- NG
Cygwin 1.5.17 (OpenCOBOL 0.32)
$ cobc TESTFLOW.COB -free -std=mf
$ ./TESTFLOW
04 96 <- NG
Cygwin 1.5.17 (OpenCOBOL 0.31)
$ cobc TESTFLOW.COB -free -std=mf
$ ./TESTFLOW
04 96 <- NG
Cygwin 1.5.17 (OpenCOBOL 0.30)
$ cobc TESTFLOW.COB -free -std=mf
$ ./TESTFLOW
04 04 <- OK
Best regards,
--
Peg, PegStyle mailto:address@hidden
http://members8.tsukaeru.net/pegstyle/
- [open-cobol-list] SUBTRACT and std=mf option Was : About the Overflow,
Peg <=