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