blob: 492f74476d3898c6454131dbb4255a24fc720f67 [file] [log] [blame]
! PR 14831
CHARACTER*4 BLANK
CHARACTER*10 ACCESS
OPEN(UNIT=9,ACCESS='SEQUENTIAL')
INQUIRE(UNIT=9,ACCESS=ACCESS,BLANK=BLANK)
IF(BLANK.NE.'NULL') CALL ABORT
IF(ACCESS.NE.'SEQUENTIAL') CALL ABORT
END