! ---------------------------------------------------
! Example program
! lbound, ubound and size
! Notice the unexpected behaviour with array sections
! ---------------------------------------------------
program test
  implicit none
  real(kind(1.d0)):: vector(-2:10),matrix(0:5,8)
  print*,'vector(-2:10):'
  print*,'lbound(vector)',lbound(vector)
  print*,'ubound(vector)',ubound(vector)
  print*,'size(vector)',size(vector)
  print*,'2D array matrix(0:5,8):'
  print*,'lbound(matrix)',lbound(matrix)
  print*,'ubound(matrix)',ubound(matrix)
  print*,'size(matrix)',size(matrix)
  print*,'lbound(matrix,1)',lbound(matrix,1)
  print*,'ubound(matrix,1)',ubound(matrix,1)
  print*,'array sections:'
  print*,'lbound(matrix(:,:))',lbound(matrix(:,:))
  print*,'lbound(matrix(2:3,7:8))',lbound(matrix(2:3,7:8))
end program test