BEGIN
  RECORDFORMAT F(INTEGER I,J,K,INTEGERARRAY A(1:5))
  RECORD(F) R
  INTEGERARRAYNAME B

  ! Bug in AST_SELECT:
  
  B==R_A

ENDOFPROGRAM