blob: c61a771095335b77038057b3ce003dd4a941766d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#SRC: JCON
#OPT: -fe
procedure main()
write(&error)
write(&errornumber | "fail")
write(&errortext | "fail")
write(image(&errorvalue) | "fail")
&error := 1
write(&error)
write(&null() | "fail")
write(&error)
write(&errornumber | "fail")
write(&errortext | "fail")
write(image(&errorvalue) | "fail")
write(&error)
write(&errornumber | "fail")
write(&errortext | "fail")
write(image(&errorvalue) | "fail")
errorclear()
write(&error)
write(&errornumber | "fail")
write(&errortext | "fail")
write(image(&errorvalue) | "fail")
end
|
