1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/cobol.dg/group2/DEBUG_Line.cob b/gcc/testsuite/cobol.dg/group2/DEBUG_Line.cob
new file mode 100644
index 0000000..a7dca5d
--- /dev/null
+++ b/gcc/testsuite/cobol.dg/group2/DEBUG_Line.cob
@@ -0,0 +1,16 @@
+       *> { dg-do run }
+       *> { dg-output-file "group2/DEBUG_Line.out" }
+
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. prog.
+       ENVIRONMENT DIVISION.
+       CONFIGURATION SECTION.
+       SOURCE-COMPUTER.
+           Linux WITH DEBUGGING MODE.
+       PROCEDURE DIVISION.
+      *> Success is printing this message. If nothing comes out, the
+      *> test fails.
+      D    DISPLAY "DEBUG MESSAGE" NO ADVANCING.
+       EXIT PROGRAM.
+       END PROGRAM prog.
+