	PROGRAM main
	 IMPLICIT NONE

	 REAL, DIMENSION(5) :: A = (/ 11, 22, 33, 44, 55 /)
	 INTEGER, DIMENSION(3) :: K = (/1, 3, 5/)

	 REAL, DIMENSION(3) :: B;
	 REAL, DIMENSION(5) :: C;

	 print *, "A =  ", A
	 print *, "K =  ", K
	 print *

	 B = A((/1, 3, 5/))
	 print *, "B = A((/1, 3, 5/)), B = ", B

	 B = A(1:3)
	 print *, "B = A(1:3), B = ", B

	 B = A(1:5:2)
	 print *, "B = A(1:5:2), B = ", B

	 C = A(:)
	 print *, "C = A(:), C = ", C

	 B = A(K)
	 print *, "B = A(K) :: ", B
	END
