Sign in
llvm
/
llvm-archive
/
8a078a762a98ba34ad83dc2c15e5ff2b86792d78
/
.
/
llvm-gcc-4.2
/
llvmgcc42-2326.9
/
gcc
/
testsuite
/
gfortran.dg
/
dev_null.f90
blob: edf93dbd1fcbd5f24e2148ab86f8e9b3d72454d1 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
pr19478 read
from
/
dev
/
null
!
Thomas
.
Koenig@online
.
de
character
*
20
foo
open
(
10
,
file
=
"/dev/null"
)
write
(
10
,
'(A)'
)
"Hello"
rewind
(
10
)
read
(
10
,
'(A)'
,
end
=
100
)
foo
call abort
100
continue
end