1 files changed, 24 insertions, 0 deletions
diff --git a/gcc/testsuite/cobol.dg/group2/FUNCTION_EXCEPTION-STATUS.cob b/gcc/testsuite/cobol.dg/group2/FUNCTION_EXCEPTION-STATUS.cob
new file mode 100644
index 0000000..1ffa366
--- /dev/null
+++ b/gcc/testsuite/cobol.dg/group2/FUNCTION_EXCEPTION-STATUS.cob
@@ -0,0 +1,24 @@
+       *> { dg-do run }
+       *> { dg-output-file "group2/FUNCTION_EXCEPTION-STATUS.out" }
+
+       IDENTIFICATION   DIVISION.
+       PROGRAM-ID.      prog.
+       ENVIRONMENT      DIVISION.
+       INPUT-OUTPUT     SECTION.
+       FILE-CONTROL.
+           SELECT TEST-FILE ASSIGN "NOTEXIST"
+           FILE STATUS IS TEST-STATUS.
+       DATA             DIVISION.
+       FILE             SECTION.
+       FD  TEST-FILE.
+       01  TEST-REC      PIC X(4).
+       WORKING-STORAGE SECTION.
+       01  TEST-STATUS  PIC XX.
+       PROCEDURE        DIVISION.
+           DISPLAY "EXCEPTION STATUS before bad open: "
+                    """" FUNCTION EXCEPTION-STATUS """"
+           OPEN INPUT TEST-FILE.
+           DISPLAY "EXCEPTION STATUS  after bad open: "
+                    """" FUNCTION EXCEPTION-STATUS """"
+           STOP RUN.
+