program testArray
  
  use ArrayModule

  type(ArrayInteger_1D_Type) :: &
    myArray
    
  call InitializeArray(myArray, 2)
  
  !This does not work, it triggers out-of-bound error
  myArray%Data = (/3,4/)
  
  ! This work:
  !myArray%Data(1) = 3
  !myArray%Data(2) = 4
  
  call FinalizeArray(myArray)

end program testArray