program array1
implicit none
real :: d, e(5), e2(2, 3), e3(1, 2, 3)
integer :: f, g(3), g2(6, 3), g3(4, 3, 2)
logical :: a, b(2), b2(3, 2), b3(2, 1, 2)
end program
