From a387b8217cd48ba49632607d11406e655c84fa63 Mon Sep 17 00:00:00 2001 From: engboris Date: Thu, 13 Jun 2024 15:12:44 +0200 Subject: [PATCH] Fix --- tests/testsuite.src/used_binaries.at | 31 ---------------------------- 1 file changed, 31 deletions(-) diff --git a/tests/testsuite.src/used_binaries.at b/tests/testsuite.src/used_binaries.at index 828dc0467..7e71e0f76 100644 --- a/tests/testsuite.src/used_binaries.at +++ b/tests/testsuite.src/used_binaries.at @@ -1186,34 +1186,3 @@ AT_DATA([prog3.cob], [ # AT_CHECK([$COBC -m -I . -fstatic-call prog3.cob], [0], [], []) AT_CLEANUP - -AT_SETUP([check include header file with directive]) -#AT_KEYWORDS([imp include]) - -AT_DATA([file.h], [ -COB_EXT_IMPORT void f (char *, long); -]) -AT_DATA([prog.cob], [ - >> IMP INCLUDE "file.h" - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - PROCEDURE DIVISION. - CALL "f" USING "Hello". -]) - -AT_CHECK([$COBC -m -I . -fstatic-call prog.cob], [1], [], [ignore]) - -AT_DATA([prog2.cob], [ - >> IMP INCLUDE "file.h" - IDENTIFICATION DIVISION. - PROGRAM-ID. prog. - DATA DIVISION. - WORKING-STORAGE SECTION. - 01 long USAGE BINARY-C-LONG. - PROCEDURE DIVISION. - CALL "f" USING "Hello" BY VALUE long RETURNING NOTHING. -]) - -AT_CHECK([$COBC -m -I . -fstatic-call prog2.cob], [0], [], []) - -AT_CLEANUP