Skip to content

Commit

Permalink
Fix
Browse files Browse the repository at this point in the history
  • Loading branch information
engboris committed Jun 13, 2024
1 parent a2d9a5e commit a387b82
Showing 1 changed file with 0 additions and 31 deletions.
31 changes: 0 additions & 31 deletions tests/testsuite.src/used_binaries.at
Original file line number Diff line number Diff line change
Expand Up @@ -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

0 comments on commit a387b82

Please sign in to comment.