Skip to content

Commit

Permalink
xxx
Browse files Browse the repository at this point in the history
  • Loading branch information
lefessan committed Jan 25, 2024
1 parent 9987137 commit 1083820
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 8 deletions.
2 changes: 1 addition & 1 deletion cobc/ChangeLog
Original file line number Diff line number Diff line change
Expand Up @@ -6,7 +6,7 @@
used to statically check the number of arguments in static
calls, for example. The files are put into quotes, unless
they start by '<'. Since C files are compiled in a temp dir,
quoted files should be absolute paths.
quoted files should be absolute paths. Implementing FR #176

2023-10-11 Fabrice Le Fessant <[email protected]>

Expand Down
12 changes: 5 additions & 7 deletions tests/testsuite.src/used_binaries.at
Original file line number Diff line number Diff line change
Expand Up @@ -1027,7 +1027,7 @@ AT_DATA([prog.cob], [

# No check, program seems correct

AT_CHECK([$COBC -m -fstatic-call prog.cob])
AT_CHECK([$COBC -m -fstatic-call prog.cob], [0], [], [])

# We ignore the error output, as it depends on the C compiler in use

Expand All @@ -1042,9 +1042,9 @@ AT_DATA([prog2.cob], [
CALL "f" USING "Hello" BY VALUE long RETURNING NOTHING.
])

AT_CHECK([$COBC -m --include "$PWD/file.h" -fstatic-call prog2.cob])
AT_CHECK([$COBC -m --include "$PWD/file.h" -fstatic-call prog2.cob], [0], [], [])

AT_CHECK([$COBC -I . -m --include "file.h" -fstatic-call prog2.cob])
AT_CHECK([$COBC -I . -m --include "file.h" -fstatic-call prog2.cob], [0], [], [])

# We can use --copy to check a CALL against a prototype. However, this
# feature is not fully supported by GnuCOBOL yet, so we get some
Expand All @@ -1064,10 +1064,8 @@ AT_DATA([f.copy], [
END PROGRAM f.
])

AT_CHECK([$COMPILE_MODULE -Wunfinished --copy "f.copy" -fstatic-call prog2.cob], [0], [],
[f.copy:3: warning: handling of PROGRAM PROTOTYPE is unfinished; implementation is likely to be changed
f.copy:8: warning: handling of parameters passed BY VALUE is unfinished; implementation is likely to be changed
prog2.cob:8: warning: unexpected RETURNING item
AT_CHECK([$COMPILE_MODULE -Wno-unfinished --copy "f.copy" -fstatic-call prog2.cob], [0], [],
[prog2.cob:8: warning: unexpected RETURNING item
])

AT_CLEANUP

0 comments on commit 1083820

Please sign in to comment.