96 lines · plain
1! Test lowering of ANY intrinsic to HLFIR2! RUN: bbc -emit-hlfir -o - %s 2>&1 | FileCheck %s3! simple 1 argument ANY4subroutine any1(a, s)5 logical :: a(:), s6 s = ANY(a)7end subroutine8! CHECK-LABEL: func.func @_QPany1(9! CHECK: %[[ARG0:.*]]: !fir.box<!fir.array<?x!fir.logical<4>>>10! CHECK: %[[ARG1:.*]]: !fir.ref<!fir.logical<4>>11! CHECK-DAG: %[[MASK:.*]]:2 = hlfir.declare %[[ARG0]]12! CHECK-DAG: %[[OUT:.*]]:2 = hlfir.declare %[[ARG1]]13! CHECK-NEXT: %[[EXPR:.*]] = hlfir.any %[[MASK]]#0 : (!fir.box<!fir.array<?x!fir.logical<4>>>) -> !fir.logical<4>14! CHECK-NEXT: hlfir.assign %[[EXPR]] to %[[OUT]]#0 : !fir.logical<4>, !fir.ref<!fir.logical<4>>15! CHECK-NEXT: return16! CHECK-NEXT: }17 18! any with by-ref DIM argument19subroutine any2(a, s, d)20 logical :: a(:,:), s(:)21 integer :: d22 s = ANY(a, d)23end subroutine24! CHECK-LABEL: func.func @_QPany2(25! CHECK: %[[ARG0:.*]]: !fir.box<!fir.array<?x?x!fir.logical<4>>> {fir.bindc_name = "a"}26! CHECK: %[[ARG1:.*]]: !fir.box<!fir.array<?x!fir.logical<4>>> {fir.bindc_name = "s"}27! CHECK: %[[ARG2:.*]]: !fir.ref<i32> {fir.bindc_name = "d"}28! CHECK-DAG: %[[MASK:.*]]:2 = hlfir.declare %[[ARG0]]29! CHECK-DAG: %[[DIM_REF:.*]]:2 = hlfir.declare %[[ARG2]]30! CHECK-DAG: %[[OUT:.*]]:2 = hlfir.declare %[[ARG1]]31! CHECK-NEXT: %[[DIM:.*]] = fir.load %[[DIM_REF]]#0 : !fir.ref<i32>32! CHECK-NEXT: %[[EXPR:.*]] = hlfir.any %[[MASK]]#0 dim %[[DIM]] : (!fir.box<!fir.array<?x?x!fir.logical<4>>>, i32) -> !hlfir.expr<?x!fir.logical<4>>33! CHECK-NEXT: hlfir.assign %[[EXPR]] to %[[OUT]]#0 : !hlfir.expr<?x!fir.logical<4>>, !fir.box<!fir.array<?x!fir.logical<4>>>34! CHECK-NEXT: hlfir.destroy %[[EXPR]]35! CHECK-NEXT: return36! CHECK-NEXT: }37 38! any with DIM argument by-val, mask isn't boxed39subroutine any3(s)40 logical :: s(2)41 logical :: a(2,2) = reshape((/.true.,.false.,.true.,.false./), shape(a))42 s = ANY(a, 1)43end subroutine44! CHECK-LABEL: func.func @_QPany3(45! CHECK: %[[ARG0:.*]]: !fir.ref<!fir.array<2x!fir.logical<4>>> {fir.bindc_name = "s"}46! CHECK-DAG: %[[ADDR:.*]] = fir.address_of{{.*}} : !fir.ref<!fir.array<2x2x!fir.logical<4>>>47! CHECK-DAG: %[[MASK_SHAPE:.*]] = fir.shape {{.*}} -> !fir.shape<2>48! CHECK-DAG: %[[MASK:.*]]:2 = hlfir.declare %[[ADDR]](%[[MASK_SHAPE]])49! CHECK-DAG: %[[OUT_SHAPE:.*]] = fir.shape {{.*}} -> !fir.shape<1>50! CHECK-DAG: %[[OUT:.*]]:2 = hlfir.declare %[[ARG0]](%[[OUT_SHAPE]])51! CHECK-DAG: %[[C1:.*]] = arith.constant 1 : i3252! CHECK-DAG: %[[EXPR:.*]] = hlfir.any %[[MASK]]#0 dim %[[C1]] : (!fir.ref<!fir.array<2x2x!fir.logical<4>>>, i32) -> !hlfir.expr<2x!fir.logical<4>>53! CHECK-DAG: hlfir.assign %[[EXPR]] to %[[OUT]]54! CHECK-NEXT: hlfir.destroy %[[EXPR]] : !hlfir.expr<2x!fir.logical<4>>55! CHECK-NEXT: return56! CHECK-NEXT: }57 58! any with DIM from pointer59subroutine any4(a, s, d)60 integer, pointer :: d61 logical :: a(:,:), s(:)62 s = ANY(a, (d))63end subroutine64! CHECK-LABEL: func.func @_QPany4(65! CHECK: %[[ARG0:.*]]: !fir.box<!fir.array<?x?x!fir.logical<4>>> {fir.bindc_name = "a"}66! CHECK: %[[ARG1:.*]]: !fir.box<!fir.array<?x!fir.logical<4>>> {fir.bindc_name = "s"}67! CHECK: %[[ARG2:.*]]: !fir.ref<!fir.box<!fir.ptr<i32>>> {fir.bindc_name = "d"}68! CHECK-DAG: %[[ARRAY:.*]]:2 = hlfir.declare %[[ARG0]]69! CHECK-DAG: %[[OUT:.*]]:2 = hlfir.declare %[[ARG1]]70! CHECK-DAG: %[[DIM:.*]]:2 = hlfir.declare %[[ARG2]]71! CHECK-NEXT: %[[DIM_BOX:.*]] = fir.load %[[DIM]]#0 : !fir.ref<!fir.box<!fir.ptr<i32>>>72! CHECK-NEXT: %[[DIM_ADDR:.*]] = fir.box_addr %[[DIM_BOX]] : (!fir.box<!fir.ptr<i32>>) -> !fir.ptr<i32>73! CHECK-NEXT: %[[DIM0:.*]] = fir.load %[[DIM_ADDR]] : !fir.ptr<i32>74! CHECK-NEXT: %[[DIM1:.*]] = hlfir.no_reassoc %[[DIM0]] : i3275! CHECK-NEXT: %[[EXPR:.*]] = hlfir.any %[[ARRAY]]#0 dim %[[DIM1]] : (!fir.box<!fir.array<?x?x!fir.logical<4>>>, i32) -> !hlfir.expr<?x!fir.logical<4>>76! CHECK-NEXT: hlfir.assign %[[EXPR]] to %[[OUT]]#0 : !hlfir.expr<?x!fir.logical<4>>, !fir.box<!fir.array<?x!fir.logical<4>>>77! CHECK-NEXT: hlfir.destroy %[[EXPR]] : !hlfir.expr<?x!fir.logical<4>>78! CHECK-NEXT: return79! CHECK-NEXT: }80 81subroutine any5(a, s)82 logical, allocatable :: a(:)83 logical :: s84 s = ANY(a)85end subroutine86! CHECK-LABEL: func.func @_QPany5(87! CHECK: %[[ARG0:.*]]: !fir.ref<!fir.box<!fir.heap<!fir.array<?x!fir.logical<4>>>>>88! CHECK: %[[ARG1:.*]]: !fir.ref<!fir.logical<4>>89! CHECK-DAG: %[[MASK:.*]]:2 = hlfir.declare %[[ARG0]]90! CHECK-DAG: %[[OUT:.*]]:2 = hlfir.declare %[[ARG1]]91! CHECK-NEXT: %[[MASK_LOADED:.*]] = fir.load %[[MASK]]#092! CHECK-NEXT: %[[EXPR:.*]] = hlfir.any %[[MASK_LOADED]] : (!fir.box<!fir.heap<!fir.array<?x!fir.logical<4>>>>) -> !fir.logical<4>93! CHECK-NEXT: hlfir.assign %[[EXPR]] to %[[OUT]]#0 : !fir.logical<4>, !fir.ref<!fir.logical<4>>94! CHECK-NEXT: return95! CHECK-NEXT: }96