Subversion Repositories openrisc

! Snippet to test various allocate statements

program test_allocate

   implicit none

   type t

      integer i

      real r

   end type

   type pt

      integer, pointer :: p

   end type

   integer, allocatable, dimension(:, :) :: a

   type (t), pointer, dimension(:) :: b

   type (pt), pointer :: c

   integer, pointer:: p

   integer n

   n = 10

   allocate (a(1:10, 4))

   allocate (a(5:n, n:14))

   allocate (a(6, 8))

   allocate (b(n))

   allocate (c)

   allocate (c%p)

   allocate (p)

end program