Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
mixed_io_1.f90
blob: 4ea719fb43d8b7fd17c4ed46498a4a8b3974947d [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
additional
-
sources mixed_io_1
.
c
}
!
{
dg
-
options
"-w"
}
call cio
write
(*,
"(A)"
)
'6789'
!
{
dg
-
output
"123456789"
}
end