]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blob - gdb/testsuite/gdb.chill/gch1280.ch
Initial creation of sourceware repository
[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.chill / gch1280.ch
1 gch1280: MODULE
2
3 SYNMODE m_x = ARRAY (1:3) LONG;
4 DCL v_x m_x;
5 DCL v_xx m_x;
6
7 doit: PROC ()
8 END doit;
9
10 v_x := [ 11, 12, 13 ];
11 doit ();
12
13 END gch1280;