6e04d71ac9
Tests converted in Lower: array-elemental-subroutines.f90, array-expression-slice-1.f90, array-expression-slice-2.f90, array-expression-subscript.f90, array-substring.f90
32 lines
1.5 KiB
Fortran
32 lines
1.5 KiB
Fortran
! RUN: bbc -emit-hlfir %s -o - | FileCheck %s
|
|
! RUN: bbc -emit-hlfir -fwrapv %s -o - | FileCheck %s --check-prefix=NO-NSW
|
|
|
|
! NO-NSW-NOT: overflow<nsw>
|
|
|
|
! CHECK-LABEL: func @_QPtest(
|
|
! CHECK-SAME: %[[arg0:.*]]: !fir.boxchar<1>{{.*}}) -> !fir.array<1x!fir.logical<4>> {
|
|
! CHECK: %[[unbox:.*]]:2 = fir.unboxchar %[[arg0]]
|
|
! CHECK: %[[addr:.*]] = fir.convert %[[unbox]]#0
|
|
! CHECK: %[[c:.*]]:2 = hlfir.declare %[[addr]](%{{.*}}) typeparams %{{.*}}
|
|
! CHECK: %[[test:.*]]:2 = hlfir.declare %{{.*}} {uniq_name = "_QFtestEtest"}
|
|
! CHECK: %[[slice:.*]] = hlfir.designate %[[c]]#0 (%c1{{.*}}:%c1{{.*}}:%c1{{.*}}) substr %c1{{.*}}, %c8{{.*}}
|
|
! CHECK: %[[const:.*]]:2 = hlfir.declare %{{.*}} {fortran_attrs = #fir.var_attrs<parameter>, uniq_name = "_QQro.1x8xc1.0"}
|
|
! CHECK: %[[res:.*]] = hlfir.elemental %{{.*}} unordered : (!fir.shape<1>) -> !hlfir.expr<1x!fir.logical<4>> {
|
|
! CHECK: ^bb0(%[[idx:.*]]: index):
|
|
! CHECK: %[[lhs_addr:.*]] = hlfir.designate %[[slice]] (%[[idx]])
|
|
! CHECK: %[[rhs_addr:.*]] = hlfir.designate %[[const]]#0 (%[[idx]])
|
|
! CHECK: %[[cmp:.*]] = hlfir.cmpchar eq %[[lhs_addr]] %[[rhs_addr]]
|
|
! CHECK: %[[cast:.*]] = fir.convert %[[cmp]]
|
|
! CHECK: hlfir.yield_element %[[cast]]
|
|
! CHECK: }
|
|
! CHECK: hlfir.assign %[[res]] to %[[test]]#0
|
|
! CHECK: %[[ret:.*]] = fir.load %[[test]]#0
|
|
! CHECK: return %[[ret]]
|
|
|
|
function test(C)
|
|
logical :: test(1)
|
|
character*12 C(1)
|
|
|
|
test = C(1:1)(1:8) == (/'ABCDabcd'/)
|
|
end function test
|