fork download 
  1. 	IDENTIFICATION DIVISION.
  2. 	PROGRAM-ID. SAMPLE.
  3.  
  4. 	ENVIRONMENT DIVISION.
  5.  
  6. 	DATA DIVISION.
  7. 	WORKING-STORAGE SECTION.
  8. 	77 n PIC Z9 .
  9.  
  10. 	PROCEDURE DIVISION.
  11. 		ACCEPT n
  12. 		PERFORM UNTIL n = 42
  13.     compute r = 2**n
  14.     display n
  15. 			ACCEPT n
  16. 		END-PERFORM.
  17. 		STOP RUN.
  18.  
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
10
43
5
42
1
compilation info 
prog.cbl:    13: error: Invalid argument expecting variable, on or before 'r'
prog.cbl:    14: error: undefined variable R, on or before 'display'
stdout 
Standard output is empty
https://ideone.com/8Skwq
language:
COBOL 85 (tinycobol-0.65.9)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!