1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
2
3subroutine test_pack_size_rewrite(x, mask)
4 real :: x(:)
5 logical, intent(in) :: mask(:)
6 ! CHECK: CALL test(count(mask,kind=8_8))
7 call test(size(pack(x, mask), dim=1, kind=8))
8end subroutine
9