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.dg/underflow.f90: Use tiny(x)/huge(x).
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
noadv_size.f90
1
! { dg-do run }
2
! PR 20774: Handle size parameter for non-advancing I/O correctly
3
program main
4
open(77,status='scratch')
5
write(77,'(A)') '123'
6
rewind(77)
7
read(77,'(2I2)',advance='no',iostat=k,size=n) i1,i2
8
if (k >=0) call abort
9
if (n /= 3) call abort
10
if (i1 /= 12 .or. i2 /= 3) call abort
11
end program main