]> git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/testsuite/gfortran.fortran-torture/execute/inquire_1.f90
projects / thirdparty / gcc.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Merge tree-ssa-20020619-branch into mainline.
[thirdparty/gcc.git] / gcc / testsuite / gfortran.fortran-torture / execute / inquire_1.f90
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 END
Mirror of https://gcc.gnu.org/git/gcc.git