blob: f0fa6a2f8b4d7438a0bc733a8da2c26d83ea0cae (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
include defs
# ERRORC -- Process an error statement. "call error" already processed.
subroutine errorc (str)
character str(1)
include COMMON_BLOCKS
xfer = YES
call outstr (str)
call balpar # output "(errcod, errmsg)"
ername = NO # just to be safe
call outdon
call outtab
call ogotos (retlab, NO) # always return after error statement
call outdon
end
|
