File tree Expand file tree Collapse file tree 2 files changed +3
-4
lines changed
Expand file tree Collapse file tree 2 files changed +3
-4
lines changed Original file line number Diff line number Diff line change @@ -1312,8 +1312,7 @@ class FirConverter : public Fortran::lower::AbstractConverter {
13121312 })
13131313 .end ();
13141314 } else if (isAllocatable &&
1315- (flags.test (
1316- Fortran::semantics::Symbol::Flag::OmpFirstPrivate))) {
1315+ flags.test (Fortran::semantics::Symbol::Flag::OmpFirstPrivate)) {
13171316 // For firstprivate allocatable variables, RHS must be copied
13181317 // only when LHS is allocated.
13191318 hlfir::Entity temp =
Original file line number Diff line number Diff line change @@ -394,8 +394,8 @@ subroutine pointer()
394394! CHECK: %[[VAL_7:.*]] = fir.box_addr %[[VAL_6]] : (!fir.box<!fir.heap<!fir.array<?xi32>>>) -> !fir.heap<!fir.array<?xi32>>
395395! CHECK: %[[VAL_8:.*]] = fir.convert %[[VAL_7]] : (!fir.heap<!fir.array<?xi32>>) -> i64
396396! CHECK: %[[C0_I64:.*]] = arith.constant 0 : i64
397- ! CHECK: %[[VAL_9:.*]] = arith.cmpi ne, %[[VAL_8]], %[[C0:.*]]_i64 : i64
398- ! CHECK: fir.if %9 {
397+ ! CHECK: %[[VAL_9:.*]] = arith.cmpi ne, %[[VAL_8]], %[[C0_I64]] : i64
398+ ! CHECK: fir.if %[[VAL_9]] {
399399! CHECK: %[[VAL_10:.*]] = fir.load %[[VAL_3]]#0 : !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>
400400! CHECK: hlfir.assign %[[VAL_10]] to %[[VAL_5]]#0 realloc : !fir.box<!fir.heap<!fir.array<?xi32>>>, !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>
401401! CHECK: } else {
You can’t perform that action at this time.
0 commit comments