URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [allocate.f90] - Rev 604
Go to most recent revision | Compare with Previous | Blame | View Log
! 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
Go to most recent revision | Compare with Previous | Blame | View Log