OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
* gfortran.h (struct gfc_symbol): Add equiv_built.
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
unopened_unit_1.f90
1
! PR 14565
2
program unopened_unit_1
3
Integer I,J
4
Do I = 1,10
5
Write(99,*)I
6
End Do
7
Rewind(99)
8
Do I = 1,10
9
Read(99,*)J
10
If (J.ne.I) Call abort
11
End Do
12
End program
13