1! PR 14831 2 CHARACTER*4 BLANK 3 CHARACTER*10 ACCESS 4 OPEN(UNIT=9,ACCESS='SEQUENTIAL') 5 INQUIRE(UNIT=9,ACCESS=ACCESS,BLANK=BLANK) 6 IF(BLANK.NE.'NULL') CALL ABORT 7 IF(ACCESS.NE.'SEQUENTIAL') CALL ABORT 8 CLOSE(UNIT=9,STATUS='DELETE') 9 END 10