gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_shape.f90

   1 ! 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