Skip to content
Snippets Groups Projects
Commit 698927be authored by James K. Lowden's avatar James K. Lowden :anchor:
Browse files

introduce expanding pointer test

parent eb11e4fe
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
gcc/cobol/UAT/failsuite.src/run_functions.at
+ 1
− 0
View file @ 698927be
......@@ -860,6 +860,7 @@ AT_DATA([prog.cob], [
end-perform.
display '.'.
set P to address of E(1).
perform until B = SPACES
set address of B to p.
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment