From 8cb609291ddd458f3dfd0f8bb481669218510e34 Mon Sep 17 00:00:00 2001
From: Kelvin Li <kli@ca.ibm.com>
Date: Mon, 13 Jan 2025 17:05:17 -0500
Subject: [PATCH] [flang][AIX] filter out __builtin_c_devptr for generating
 packed type

---
 flang/lib/Lower/ConvertType.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/flang/lib/Lower/ConvertType.cpp b/flang/lib/Lower/ConvertType.cpp
index 31b85ef2b5476..037d4335fedf1 100644
--- a/flang/lib/Lower/ConvertType.cpp
+++ b/flang/lib/Lower/ConvertType.cpp
@@ -392,7 +392,7 @@ struct TypeBuilderImpl {
     // Always generate packed FIR struct type for bind(c) derived type for AIX
     if (targetTriple.getOS() == llvm::Triple::OSType::AIX &&
         tySpec.typeSymbol().attrs().test(Fortran::semantics::Attr::BIND_C) &&
-        !IsIsoCType(&tySpec)) {
+        !IsIsoCType(&tySpec) && !fir::isa_builtin_cdevptr_type(rec)) {
       rec.pack(true);
     }