Sign in
rust
/
rust-lang
/
gcc
/
refs/heads/master
/
.
/
libgomp
/
testsuite
/
libgomp.fortran
/
target-print-1.f90
blob: 9ac70e5a85fe66ef13e59cf99849513e796fb503 [
file
] [
log
] [
blame
]
!
Ensure
that write on the offload device works
.
!
{
dg
-
do
run
}
!
{
dg
-
output
"The answer is 42(\n|\r\n|\r)+"
}
program main
implicit
none
integer
::
var
=
42
!
$omp target
write
(
0
,
'("The answer is ", I2)'
)
var
!
$omp
end
target
end
program main
