! AST test only

program array4
implicit none

integer :: i

i = some_array(5)%a

end program
