brintos / llvm-project-archived public Read only

1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2 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 subroutine9