xxx

.github/workflows/windows.yml

@@ -79,15 +79,16 @@ jobs:
           path: _build/install.log
 
       - name: check
-        continue-on-error: true
         run: |
           cd _build/tests
           make check TESTSUITEFLAGS="--jobs=$(($(nproc)+1))"
           make test
         shell: msys2 {0}
 
+
       - name: Upload testsuite.log
         uses: actions/upload-artifact@v3
+        if: failure()
         with:
           name: testsuite.log
           path: _build/tests/testsuite.log

tests/testsuite.src/used_binaries.at

@@ -1000,7 +1000,8 @@ AT_DATA([prog.cob], [
 
 AT_CHECK([mkdir -p sub])
 AT_DATA([COPY1.CPY], [])
-AT_DATA([COPY2.CPY], [DISPLAY "Hello".])
+AT_DATA([COPY2.CPY], [       DISPLAY "Hello".
+])
 AT_DATA([sub/COPY3.CPY], [])
 
 AT_CHECK([$COMPILE_ONLY prog.cob])
@@ -1104,6 +1105,31 @@ AT_CHECK([$COMPILE_ONLY -M -MG prog.cob], [0],
 ])
 
 
+AT_DATA([prog.cob],[
+        IDENTIFICATION DIVISION.
+        PROGRAM-ID. prog.
+        DATA DIVISION.
+        WORKING-STORAGE SECTION.
+        01 BLA PIC X(5) VALUE 'bluBb'.
+        PROCEDURE DIVISION.
+        MAIN-PROC SECTION.
+        00.
+        COPY PROC.
+        END-PROC  SECTION.
+        COPY PROCE in "sub".
+        EX.
+            STOP RUN.
+])
+
+AT_CHECK([mkdir -p sub/copy], [0], [], [])
+
+AT_DATA([sub/copy/PROC.cpy],[
+           DISPLAY BLA NO ADVANCING.
+])
+AT_DATA([sub/PROCE.cpy],[
+           DISPLAY ' END' NO ADVANCING.
+])
+
 AT_CAPTURE_FILE([prog.d])
 AT_CHECK([$COBC -I sub/copy prog.cob -ext=cpy -o prog.i -M -MP -MF prog.d -MT "prog.c prog.h" -MT prog$COB_EXE_EXT -MT prog.$COB_OBJECT_EXT -MT prog.i  -fsyntax-only], [0], [], [])
 AT_CHECK([$GREP 'prog.c prog.h '       prog.d], [0], ignore, [])