Fortran中的可变大小数组,没有Allocate()

program variable_size_array
    implicit none
    integer, allocatable, dimension(:) :: arr
    integer :: n, i

    print *, "Enter the size of the array:"
    read *, n

    allocate(arr(n))

    do i = 1, n
        arr(i) = i * 2
    end do

    print *, "The array elements are:"
    do i = 1, n
        print *, arr(i)
    end do

    deallocate(arr)
end program variable_size_array