Put failures/playpen back into the repository

gcc/cobol/failures/.gitignore

@@ -10,4 +10,3 @@ dump.txt
 *.html
 XXXXX*
 REPORTT
-playpen/

gcc/cobol/failures/playpen/Makefile

+include ../Makefile.inc

gcc/cobol/failures/playpen/playpen.cbl

+        IDENTIFICATION   DIVISION.
+        FUNCTION-ID.      callee.
+        DATA             DIVISION.
+        LOCAL-STORAGE    SECTION.
+        01 LCL-X         PIC 999 .
+        LINKAGE          SECTION.
+        01 parm          PIC 999.
+        01 retval        PIC 999.
+        PROCEDURE        DIVISION USING parm RETURNING retval.
+            display "On entry, parm is: " parm
+            move parm to lcl-x
+            move parm to retval
+            subtract 1 from parm
+            if parm > 0
+                display "A The function returns " function callee(parm).
+            if lcl-x not equal to retval
+                display "On exit, lcl-s and retval are: " lcl-x " and " retval
+                display "But they should be equal to each other"
+                end-if
+            goback.
+            end function callee.
+
+        IDENTIFICATION   DIVISION.
+        PROGRAM-ID.      caller.
+        ENVIRONMENT      DIVISION.
+        CONFIGURATION    SECTION.
+        REPOSITORY.
+                         FUNCTION callee.
+        DATA             DIVISION.
+        WORKING-STORAGE  SECTION.
+        01 val           PIC 999 VALUE 5.
+        PROCEDURE        DIVISION.
+           DISPLAY "Starting value is: " val
+           display "B The function returns " function callee(val).
+           STOP RUN.
+           end program caller.
+

gcc/cobol/tests/c-to-cobol/call_stuff.cbl

@@ -6,7 +6,7 @@ WORKING-STORAGE SECTION.
 01  CWD          PIC X(100).
 01  RETURNED-CWD PIC X(100).
 01  LEN_OF_CWD   PIC 999 VALUE 100.
-01  USR-LOCAL-BIN  PIC X(14) VALUE "/usr/local/bin".
+01  USR-LOCAL-BIN  PIC X(15) VALUE "/usr/local/bin".
 01  CHDIR_RETURN PIC S999 BINARY.
 
 01  var1 pic x(24) VALUE "I shouldn't change".
@@ -17,7 +17,7 @@ WORKING-STORAGE SECTION.
 
 PROCEDURE DIVISION.
 
-    CALL    "chdir"
+    MOVE X'00' TO USR-LOCAL-BIN(15:1)
     CALL    "chdir"
             USING BY CONTENT USR-LOCAL-BIN
             RETURNING CHDIR_RETURN