Sign in
gnu
/
gcc
/
a48323ff520827d38b0ca4b6af4dc87fe9e26b50
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
write_to_null.F90
blob: bce1db03a7fadd9d67833ce4d3246e0cc80170f3 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
pr18983
!
could
not
write to
/
dev
/
null
#if defined _WIN32
#define
DEV_NULL
"nul"
#else
#define
DEV_NULL
"/dev/null"
#endif
integer i
open
(
10
,
file
=
DEV_NULL
)
do
i
=
1
,
100
write
(
10
,*)
"Hello, world"
end
do
end