! 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 /))) STOP 1 | |
call test(a) | |
contains | |
subroutine test (a) | |
real, dimension (1:, 1:) :: a | |
if (any (shape (a) .ne. (/ 6, 2 /))) STOP 2 | |
end subroutine | |
end program | |