Sign in
gnu
/
gcc
/
926d9947847a0683cf34de6fc231209747576088
/
.
/
libgomp
/
testsuite
/
libgomp.oacc-fortran
/
abort-2.f90
blob: 2ba2bcb8aa665f386eed72bf9702ba3376b2a96e [
file
] [
log
] [
blame
]
program main
implicit
none
integer
::
argc
argc
=
command_argument_count
()
!
$acc parallel copyin
(
argc
)
if
(
argc
.
ne
.
0
)
then
call abort
end
if
!
$acc
end
parallel
end
program main