Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
vect
/
pr99807.f90
blob: 4ab46a3251518a145c91c7c0918d1e9c100cd08c [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
additional
-
options
"-march=armv8.3-a"
{
target aarch64
-*-*
}
}
subroutine cppco
(
ap
,
z
)
implicit
none
complex
::
ap
(*),
z
(*)
z
(
1
)
=
z
(
1
)
+
z
(
2
)
*
(
ap
(
1
))
return
end
subroutine cppco