PROGRAM checkarray
	IMPLICIT NONE
        
        REAL, DIMENSION(-5:5, 0:3) :: a = 0.0

        WRITE(*,'(A, 7I6)') 'Shape is:         ', shape(a)
        WRITE(*,'(A, I6)')  'Size is:          ', size(a)
        WRITE(*,'(A, 7I6)') 'Lower bounds are: ', lbound(a)
        WRITE(*,'(A, 7I6)') 'Upper bounds are: ', ubound(a)

        END PROGRAM