New Parallel Features: TASK_REGION
!HPF$ DISTRIBUTE a1(block,*) ONTO p(1:4)
!HPF$ DISTRIBUTE a2(*,block) ONTO p(5:8)
!HPF$ DISTRIBUTE td1(BLOCK) ONTO p(1:4)
!HPF$ ALIGN WITH td1(*) :: done1
!HPF$ ON HOME(p(1:4)) BEGIN, RESIDENT
READ (unit = iu,end=100) a1
!HPF$ ON HOME(p(5:8)) BEGIN, RESIDENT