PROGRAM arrconstruct

  IMPLICIT NONE
  INTEGER :: a(5) 

  a = 1
  PRINT *, 'a = ',a
  a( [1,4,5] ) = [ -1, -1, -1 ]
  PRINT *, 'a = ',a

END PROGRAM arrconstruct