[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [GnuCOBOL 3.2-early-dev] testsuite: 707 "INDEXED File KEYCHECK" fail
From: |
Simon Sobisch |
Subject: |
Re: [GnuCOBOL 3.2-early-dev] testsuite: 707 "INDEXED File KEYCHECK" failed |
Date: |
Sun, 29 Dec 2019 17:14:43 +0100 |
User-agent: |
Mozilla/5.0 (Windows NT 10.0; WOW64; rv:68.0) Gecko/20100101 Thunderbird/68.3.1 |
Hi Harald and thank you for the report.
Just to give some background _what_ goes unexpected:
* an indexed file is read using a different SELECT statement than the
one originally specified (the second key is not specified)
* because the KEYCHECK is explicit set to OFF the file does not raise
status 39 on OPEN
* the READ seems to actually read against the missing second key, not
against the specified third one
So: If you don't need/use KEYCHECK=OFF then you should be fine using
this version - as long as `make test` works.
Concerning the issue:
* please recheck as you use 3.2-early-dev: do you use the most current
revision (3411)?
* please send tests/testsuite.log after running `make check` without any
options (test 707 is actually missing and the summary + config.log
content normally included is missing, too)
Simon
Am 29.12.2019 um 13:36 schrieb Harald Arnesen:
> Complete testsuite.log attached. Also fails when compiled with gcc 9.2.0
>
> $ cobc --version
> cobc (GnuCOBOL) 3.2-early-dev.0
> Copyright (C) 2019 Free Software Foundation, Inc.
> License GPLv3+: GNU GPL version 3 or later
> <https://gnu.org/licenses/gpl.html>
> This is free software; see the source for copying conditions. There is NO
> warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
> Written by Keisuke Nishida, Roger While, Ron Norman, Simon Sobisch,
> Edward Hart
> Built Dec 29 2019 12:38:04
> Packaged Dec 05 2019 15:14:56 UTC
> C version "Clang 9.0.1 "
>
>
> # -*- compilation -*-
> 707. run_file.at:708: testing INDEXED File KEYCHECK ...
> ./run_file.at:1433: $COMPILE -std=mf -w prog.cob
> ./run_file.at:1435: ./prog
> --- - 2019-12-29 13:15:27.206309758 +0100
> +++
> /home/harald/src/gnucobol/trunk/tests/testsuite.dir/at-groups/707/stdout
> 2019-12-29 13:15:27.201431131 +0100
> @@ -52,7 +52,7 @@
> A: Expected ERROR 39 opening TSTFILE, Record size different
> B: Expected ERROR 39 opening BADFILE, Index mismatch
> C: Expected open BADFILE, with Index mismatch
> -Key: ALP00000 is 2417 : 549 mmm
> -Key: FOR00000 is 2417 : 549 mmm
> -Key: JOH00000 is 8417 : 1600 BPI
> +Key: ALP00000 is 3131234432 : UNI-9030
> +Key: INC00000 is 3455445444 : UNI-80/8
> +Key: BET00000 is 4082938498 : UNI-9040
>
> 707. run_file.at:708: 707. INDEXED File KEYCHECK (run_file.at:708):
> FAILED (run_file.at:1435)