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 {
1312
1312
})
1313
1313
.end ();
1314
1314
} else if (isAllocatable &&
1315
- (flags.test (
1316
- Fortran::semantics::Symbol::Flag::OmpFirstPrivate))) {
1315
+ flags.test (Fortran::semantics::Symbol::Flag::OmpFirstPrivate)) {
1317
1316
// For firstprivate allocatable variables, RHS must be copied
1318
1317
// only when LHS is allocated.
1319
1318
hlfir::Entity temp =
Original file line number Diff line number Diff line change @@ -394,8 +394,8 @@ subroutine pointer()
394
394
! CHECK: %[[VAL_7:.*]] = fir.box_addr %[[VAL_6]] : (!fir.box<!fir.heap<!fir.array<?xi32>>>) -> !fir.heap<!fir.array<?xi32>>
395
395
! CHECK: %[[VAL_8:.*]] = fir.convert %[[VAL_7]] : (!fir.heap<!fir.array<?xi32>>) -> i64
396
396
! 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]] {
399
399
! CHECK: %[[VAL_10:.*]] = fir.load %[[VAL_3]]#0 : !fir.ref<!fir.box<!fir.heap<!fir.array<?xi32>>>>
400
400
! 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>>>>
401
401
! CHECK: } else {
You can’t perform that action at this time.
0 commit comments