Sign in
llvm
/
llvm-archive
/
a95f55d472d28a35cc4af5df7749473ca38ee187
/
.
/
llvm-gcc-4.2
/
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