Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
gomp
/
pr78866-2.f90
blob: 033479e5801e02cbc01cde92e85ef66f83488d0e [
file
] [
log
] [
blame
]
!
PR fortran
/
78866
!
{
dg
-
do
compile
}
subroutine pr78866
(
x
)
integer
::
x
(*)
!
$omp target
!
{
dg
-
error
"implicit mapping of assumed size array"
}
x
(
1
)
=
1
!
$omp
end
target
end