#248 >>DEFINE evaluated inside false >>ELSE

[Mário Matos]

https://sourceforge.net/p/open-cobol/discussion/cobol/thread/c7fda487/#d6ab

For better understanding I'll copy/paste the "source" and then I'll send it full as attachement.

Here it is:

:::cobolfree
   >>SOURCE FORMAT FIXED

       COPY "SDKDDKVer.cpy".

   IDENTIFICATION DIVISION.
   PROGRAM-ID. TESTING.

   ENVIRONMENT DIVISION.
   CONFIGURATION SECTION.

   DATA DIVISION.
   WORKING-STORAGE SECTION.

   PROCEDURE DIVISION.
   Begin-Program.

   *> NB: _WIN32_WINNT is defined.
   >>IF _WIN32_WINNT DEFINED
       >>DISPLAY _WIN32_WINNT DEFINED
       DISPLAY
          "_WIN32_WINNT DEFINED"
       END-DISPLAY.
   >>ELSE
       *> This should not be evaluated.
       >>DISPLAY _WIN32_WINNT NOT DEFINED
       >>DEFINE _WIN32_WINNT 1
       DISPLAY
          "_WIN32_WINNT NOT DEFINED"
       END-DISPLAY.
   >>END-IF

   End-Program.
       GOBACK.

   END PROGRAM TESTING.

which produces the following output:

MM@CROSSHAIR2 [D:\DEV\MM\test\CDF]
$ cobc -x -v -D_WIN32_WINNT=1 test.cbl
Loading standard configuration file 'default.conf'
Command line: cobc -x -v -D_WIN32_WINNT=1 test.cbl
Preprocessing: test.cbl -> D:\DEV\GnuCOBOL\2.0\temp\cob2936_0.cob
_WIN32_WINNT DEFINED
test.cbl (24): Error: Duplicate define
Return status: 1

Cheers,

MM

[Edward Hart]

Fixed in [r955]. Thanks for reporting it, Mario.

[Simon Sobisch]

Thank you. This was a duplicate of [bugs:#99], wasn't it?

Can you please have a look at the other directive issues [feature-requests:#47] and [feature-requests:#46], too?

[Edward Hart]

This was a duplicate of [bugs:#99], wasn't it?

Yes, thanks for reminding me of it.

Can you please have a look at the other directive issues [feature-requests:#47] and [feature-requests:#46], too?

Those are quite complex (they look complex, at least) and I want to work on screen section stuff for the moment. People seem to be runnning into [bugs:#246] a lot and I might one day get somewhere with [bugs:#35].