URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_shape.f90] - Blame information for rev 303

Details | Compare with Previous | View Log


! Program to test the shape intrinsic
program testbounds
   implicit none
   real, dimension(:, :), allocatable :: a
   integer, dimension(2) :: j
   integer i
 
   allocate (a(3:8, 6:7))
 
   j = shape (a);
   if (any (j .ne. (/ 6, 2 /))) call abort
 
   call test(a)
contains
 
subroutine test (a)
   real, dimension (1:, 1:) :: a
 
   if (any (shape (a) .ne. (/ 6, 2 /))) call abort
end subroutine
end program
 

Line No.	Rev	Author	Line
1	303	jeremybenn	`! Program to test the shape intrinsic`
2			`program testbounds`
3			`implicit none`
4			`real, dimension(:, :), allocatable :: a`
5			`integer, dimension(2) :: j`
6			`integer i`
7
8			`allocate (a(3:8, 6:7))`
9
10			`j = shape (a);`
11			`if (any (j .ne. (/ 6, 2 /))) call abort`
12
13			`call test(a)`
14			`contains`
15
16			`subroutine test (a)`
17			`real, dimension (1:, 1:) :: a`
18
19			`if (any (shape (a) .ne. (/ 6, 2 /))) call abort`
20			`end subroutine`
21			`end program`
22

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_shape.f90] - Blame information for rev 303