Program Main
  Implicit None
  Integer :: a, b, c(:,:,:)
  Dimension b(:,:)
  Allocatable a(:), b, c
  Real, Dimension(:,:), Allocatable :: d
  Character(1), Allocatable :: e(:)
  Logical(1), Allocatable :: f(:)

  Allocate ( a(2), b(3,-1:1), c(2,3,), d(2,2), e(5), f(2) )
  a=1 ; b=2 ; c=3 ; d=4 ; e=(/'S','e','o','u','i'/) ; f=(/.True.,.False./)
  Write(*,*) 'a,b,c,d,e,f', a,b,c,d,e,f
  Deallocate(a,b,c,d,e,f)
End program Main