! Snippet to test various allocate statementsprogram 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