[Bug-apl] Crash in GNU APL when creating array

[Elias Mårtenson]

To reproduce, run the following:

'x' 'a' 'b' 'c',[1]'r1' 'r2' 'r3',⊃[1]⊃((⍳3) (10+⍳3) (100+⍳3))

This will cause the following output:

Assertion failed: r < rho_rho

in Function:      get_shape_item

in file:          Shape.hh:100

Call stack:

----------------------------------------

-- Stack trace at Shape.hh:100

----------------------------------------

0x7f4eab879de5 __libc_start_main

0x4328d5  main

0x51620d   Workspace::immediate_execution(bool)

0x45fcbd    Command::process_line()

0x45ea0b     Command::process_line(UCS_string&)

0x467b78      Executable::execute_body() const

0x4d9390       StateIndicator::run()

0x488d65        Prefix::reduce_statements()

0x485083         Prefix::reduce_MISC_F_C_B()

0x4da4d4          StateIndicator::eval_XB(Token&, Token&, Token&)

0x4960a6           Bif_F12_PICK::eval_XB(Value_P, Value_P)

0x440d9f            do_Assert(char const*, char const*, char const*, int)

========================================

SI stack:

Depth:    0

Exec:     0x13f11f0

Pmode:    ◊  'x' 'a' 'b' 'c',[1]'r1' 'r2' 'r3',⊃[1]⊃((⍳3) (10+⍳3) (100+⍳3))

PC:       24 VALUE3«≡≡⊏3⊐ r1 r2 r3 »

Stat:     'x' 'a' 'b' 'c',[1]'r1' 'r2' 'r3',⊃[1]⊃((⍳3) (10+⍳3) (100+⍳3))

err_code: 0x0

thrown:   at StateIndicator.cc:39

e_msg_1:  'No Error'

e_msg_2:  ''

e_msg_3:  ''

==============================================================================

----------------------------------------

-- Stack trace at StateIndicator.cc:704

----------------------------------------

0x7f4eab879de5 __libc_start_main

0x4328d5  main

0x51620d   Workspace::immediate_execution(bool)

0x45fcbd    Command::process_line()

0x45ea0b     Command::process_line(UCS_string&)

0x467b78      Executable::execute_body() const

0x4d9390       StateIndicator::run()

0x488d65        Prefix::reduce_statements()

0x485083         Prefix::reduce_MISC_F_C_B()

0x4da6b8          StateIndicator::eval_XB(Token&, Token&, Token&)

========================================

Process apl finished