mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-21 04:42:53 +08:00
605f94ba35
directory. (E.g. add extra ../ where needed.) Also, add .exe to executables, so we can use suffix rules. * chexp.exp (test_print_reject): Update syntax error message. * chillvars.ch (module PR_5020): Moved from here ... * pr-5022.ch: ... to this new file. * chillvars.exp, pr-5020.exp (binfile): Add .exe extension. * chillvars.exp, pr-5020.exp: Don't check all_flag. * pr-5020.exp: Add more tests; fix "print y pretty" output.
20 lines
523 B
Plaintext
20 lines
523 B
Plaintext
|
|
PR_5020: MODULE
|
|
dummy_pr_5020: PROC ();
|
|
END;
|
|
NEWMODE x = STRUCT (l LONG, b BOOL);
|
|
NEWMODE aset = SET (aa, bb);
|
|
|
|
DCL y ARRAY ('a':'b') x;
|
|
DCL setarr ARRAY (aset) x;
|
|
DCL intarr ARRAY(10:11) x;
|
|
DCL boolarr ARRAY (BOOL) x;
|
|
|
|
y('a').l, setarr(aa).l, intarr(10).l, boolarr(FALSE).l := 10;
|
|
y('a').b, setarr(aa).b, intarr(10).b, boolarr(FALSE).b := TRUE;
|
|
y('b').l, setarr(bb).l, intarr(11).l, boolarr(TRUE).l := 111;
|
|
y('b').b, setarr(bb).b, intarr(11).b, boolarr(TRUE).b := FALSE;
|
|
|
|
dummy_pr_5020 ();
|
|
END;
|