repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Fix warning with -Wsign-compare -Wsystem-headers
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
inquire_3.f90
blob
685091ba215e0113128c6476d16a45840c958e72
1
! pr14836
2
OPEN
(
UNIT
=
9
,
ACCESS
=
'DIRECT'
,
RECL
=
80
,
FORM
=
'UNFORMATTED'
)
3
INQUIRE
(
UNIT
=
9
,
NEXTREC
=
NREC
)
4
WRITE
(
UNIT
=
9
,
REC
=
5
)
1
5
INQUIRE
(
UNIT
=
9
,
NEXTREC
=
NREC
)
6
! PRINT*,NREC
7
IF
(
NREC
.
NE
.6
)
STOP
1
8
READ
(
UNIT
=
9
,
REC
=
1
)
MVI
9
INQUIRE
(
UNIT
=
9
,
NEXTREC
=
NREC
)
10
IF
(
NREC
.
NE
.2
)
STOP
2
11
! PRINT*,NREC
12
CLOSE
(
UNIT
=
9
,
STATUS
=
'DELETE'
)
13
END
14