[flang-commits] [flang] [flang] Change global initialization for equivalence on AIX (NFC) (PR #74614)
via flang-commits
flang-commits at lists.llvm.org
Wed Dec 6 08:05:25 PST 2023
https://github.com/madanial0 created https://github.com/llvm/llvm-project/pull/74614
default initialization for equivalence on AIX results in a different value due to endianness, changing the testcase to account for that.
>From d16fa0f8cc09ef169d0238360e2fa755dd1f84c9 Mon Sep 17 00:00:00 2001
From: Mark Danial <madanial at dixon.rtp.raleigh.ibm.com>
Date: Wed, 6 Dec 2023 11:00:54 -0500
Subject: [PATCH] [flang] Change global initialization for equivalence on AIX
---
flang/test/Lower/default-initialization-globals.f90 | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/flang/test/Lower/default-initialization-globals.f90 b/flang/test/Lower/default-initialization-globals.f90
index aa923f49170c1..384d1cb763ad6 100644
--- a/flang/test/Lower/default-initialization-globals.f90
+++ b/flang/test/Lower/default-initialization-globals.f90
@@ -1,5 +1,6 @@
! Test default initialization of global variables (static init)
-! RUN: bbc -hlfir=false %s -o - | FileCheck %s
+! RUN: bbc -hlfir=false %s -o - | FileCheck %s --check-prefixes=%if system-aix %{"CHECK","CHECK-BE"%} \
+! RUN: %else %{"CHECK","CHECK-LE"%}
module tinit
real, target :: ziel(100)
@@ -191,7 +192,8 @@ subroutine eqv_same_default_init()
type(tseq), save :: somet1(2), somet2
equivalence (somet1(1), somet2)
! CHECK-LABEL: fir.global internal @_QFeqv_same_default_initEsomet1 : !fir.array<2xi64> {
- ! CHECK: %[[VAL_62:.*]] = arith.constant 12884901890 : i64
+ ! CHECK-LE: %[[VAL_62:.*]] = arith.constant 12884901890 : i64
+ ! CHECK-BE: %[[VAL_62:.*]] = arith.constant 8589934595 : i64
! CHECK: %[[VAL_63:.*]] = fir.undefined !fir.array<2xi64>
! CHECK: %[[VAL_64:.*]] = fir.insert_on_range %[[VAL_63]], %[[VAL_62]] from (0) to (1) : (!fir.array<2xi64>, i64) -> !fir.array<2xi64>
! CHECK: fir.has_value %[[VAL_64]] : !fir.array<2xi64>
More information about the flang-commits
mailing list