program standardize_statements !<<<<<1,1,pass
    implicit none
    real, dimension(1:10) :: vector, vector2
    integer a(4), b(20), c(6), d
    dimension :: d(10)

    a = (/1,2,3,4/)
    vector(1:10) = 4.0

end program standardize_statements