!=======================================================================
!   FILE: f2003-1.F90
!   DATE: 25 September 2003
!
!   TEST: Array assignment extension [xx,xx,xx]
!         an extension of (/xx,xx,xx/).
!
!   Courtesy of David Frank.
!   Contact: H. D. Knoble
!=======================================================================
Integer, dimension(3) :: x
!---Following array operation is Fortran 2003 Standard.
!   This test checks which F90 compiler supports this extension.
X=[111,222,333]
print*,X
end