	PROGRAM main
	 IMPLICIT NONE

	 REAL, DIMENSION(5) :: A1

! 	 REAL, DIMENSION( SHAPE(A1) ) :: B      !! Illegal

 	 REAL, DIMENSION( SIZE(A1) ) :: B


	END
