Package: open-cobol Version: 0.32-3 Attempting to compile a simple test program produces an internal compiler error. I've run this through one or two other compilers without problems. Best I can tell, the syntax is all legal. I've commented out a few non-essential bits, but it doesn't seem to make any difference. I also tried making the records fixed instead of varying length, to no avail.
=============================================================================== sample run: =============================================================================== yagi 7410 $ cobc -C -Wall -std=mvs test.cob test.cob: In paragraph '210-COPY': test.cob:77: warning: READ statement not terminated by END-READ test.cob:80: warning: IF statement not terminated by END-IF Unexpected tree tag 1413632580 Aborting compile of test.cob at line 84 codegen.c:802: internal compiler error Abort (core dumped) =============================================================================== test.cob: =============================================================================== IDENTIFICATION DIVISION. PROGRAM-ID. DRBTEST. * AUTHOR. Dennis Boone. * DATE-WRITTEN. 15Sep2006. ENVIRONMENT DIVISION. * CONFIGURATION SECTION. * SOURCE-COMPUTER. VAX. * OBJECT-COMPUTER. VAX. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT TESTFILEI ASSIGN TO INFILE ORGANIZATION IS SEQUENTIAL. SELECT TESTFILEO ASSIGN TO OUTFILE ORGANIZATION IS SEQUENTIAL. DATA DIVISION. FILE SECTION. FD TESTFILEI RECORD IS VARYING IN SIZE FROM 0 TO 256 CHARACTERS DEPENDING ON REC-LEN. * LABEL RECORDS ARE OMITTED * DATA RECORD IS TFIREC. 01 TFIREC. 03 ISTR PIC X(256). FD TESTFILEO RECORD IS VARYING IN SIZE FROM 0 TO 256 CHARACTERS DEPENDING ON REC-LEN. * LABEL RECORDS ARE OMITTED * DATA RECORD IS TFOREC. 01 TFOREC. 03 OSTR PIC X(256). WORKING-STORAGE SECTION. 77 TFI-STATUS PIC 9. 77 REC-CNT PIC 9(9). 77 REC-LEN PIC 9(9). PROCEDURE DIVISION. 100-MAIN. PERFORM 200-FILE-SETUP. MOVE 0 TO TFI-STATUS. PERFORM 210-COPY VARYING REC-CNT FROM 0 BY 1 UNTIL TFI-STATUS IS GREATER THAN 0. CLOSE TESTFILEI. CLOSE TESTFILEO. DISPLAY REC-CNT, ' RECORDS COPIED.'. EXIT PROGRAM. 200-FILE-SETUP. OPEN INPUT TESTFILEI. OPEN OUTPUT TESTFILEO. 210-COPY. MOVE SPACES TO ISTR. MOVE SPACES TO OSTR. READ TESTFILEI RECORD AT END MOVE 1 TO TFI-STATUS. MOVE ISTR TO OSTR. IF TFI-STATUS = 0 WRITE TFOREC. END PROGRAM DRBTEST. =============================================================================== test.c: =============================================================================== /* Generated from test.cob by cobc 0.32 */ #include <stdio.h> #include <stdlib.h> #include <string.h> #include <math.h> #include <libcob.h> #include "test.c.h" static int DRBTEST_ (int); int DRBTEST () { return DRBTEST_ (0); } static int DRBTEST_ (int entry) { static int initialized = 0; static cob_module module = { NULL, NULL, 0, '.', '$', ',', 1, 0, 0}; /* Files */ static cob_file h_TESTFILEI = {0, 1, 0, 0, 0, &c_20, -- To UNSUBSCRIBE, email to [EMAIL PROTECTED] with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]