?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Update concepts branch to revision 131834
[official-gcc.git] / gcc / testsuite / gfortran.fortran-torture / execute / inquire_2.f90
blob48105170248de1857930b4e3f95c9014b2afc221
1 ! PR 14837
2 INTEGER UNIT
3 OPEN(FILE='CSEQ', UNIT=23)
4 INQUIRE(FILE='CSEQ',NUMBER=UNIT)
5 IF (UNIT.NE.23) CALL ABORT
6 CLOSE(UNIT, STATUS='DELETE')
7 END
Mirror of the offical gcc git repository hosted at gcc.gnu.org