Sign in
fuchsia
/
third_party
/
github.com
/
llvm
/
llvm-project
/
refs/heads/users/MaskRay/spr/main.armmc-support-fdpic-relocations
/
.
/
flang
/
test
/
Evaluate
/
rewrite07.f90
blob: 7844ea6cd99073097cd7ecbb5083f32da3c59558 [
file
] [
log
] [
blame
]
!
RUN
:
%
flang_fc1
-
fdebug
-
unparse
%
s
2
>&
1
|
FileCheck
%
s
subroutine test_pack_size_rewrite
(
x
,
mask
)
real
::
x
(:)
logical
,
intent
(
in
)
::
mask
(:)
!
CHECK
:
CALL test
(
count
(
mask
,
kind
=
8_8
))
call test
(
size
(
pack
(
x
,
mask
),
dim
=
1
,
kind
=
8
))
end
subroutine