Re: [GnuCOBOL 3.2-early-dev] testsuite: 707 "INDEXED File KEYCHECK" failed

[Simon Sobisch]

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)