Ask for length, Accept numbers in new line, print them out

! Fortran Program

program TEST
        implicit none

        ! Non executable Code

        integer :: i
        integer :: arrayLength
        real, dimension(:), allocatable :: array

        ! Executable Code

        ! Ask the length of array
        print *, "Length of array :"
        read *, arrayLength

        ! allocate the array
        allocate(array(arrayLength))

        ! Accept list of numbers for Array
        do i = 1, arrayLength
                read *, array(i)
        end do

        ! Print all elements in Array
        do i = 1, arrayLength
                print *, array(i)
        end do
end program TEST