RE: [open-cobol-list] BUG: 01 Table + nested Table + initialization --> generates error in codegen.c

[William M. Klein]

Was this compiled with MF?

Having an OCCURS at the 01-level is illegal in:
   ANSI/ISO
   IBM (mainframe)

I *think* but haven't checked that most other PC/Unix compilers also treat
it as an error, e.g. Fujitsu, RM, AcuCOBOL, etc.

MF *does* document this as a supported extension.  As I recall (but couldn't
find quickly) they "deprecate" its use - but it is still supported. 

> -----Original Message-----
> From: address@hidden 
> [mailto:address@hidden On 
> Behalf Of Thomas Biehler
> Sent: Tuesday, June 01, 2004 4:35 AM
> To: Keisuke Nishida
> Cc: address@hidden
> Subject: [open-cobol-list] BUG: 01 Table + nested Table + 
> initialization --> generates error in codegen.c
> 
> Hi Keisuke,
> 
> the attached program "TABBUG.cob" demonstrates the bug:
> 
> #> cobc -std=mf -fixed TABBUG.cob
> codegen.c:245: invalid type cast from `null' at TABBUG.cob:23
> Aborted
> 
> A easy workaround,  that i have applied,  
> is shifting the first table-definition on a level > 01 . 
> 
> Thomas
>