[flang][AIX] filter out __builtin_c_devptr for generating packed type (#122812)

kkwli · web-flow · commit d305fd0b09b1 · 2025-01-14T10:47:20.000-05:00
diff --git 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);
     }
 

Original file line number	Diff line number	Diff line change
`@@ -392,7 +392,7 @@ struct TypeBuilderImpl {`
`392`	`392`	`// Always generate packed FIR struct type for bind(c) derived type for AIX`
`393`	`393`	`if (targetTriple.getOS() == llvm::Triple::OSType::AIX &&`
`394`	`394`	`tySpec.typeSymbol().attrs().test(Fortran::semantics::Attr::BIND_C) &&`
`395`		`- !IsIsoCType(&tySpec)) {`
	`395`	`+ !IsIsoCType(&tySpec) && !fir::isa_builtin_cdevptr_type(rec)) {`
`396`	`396`	`rec.pack(true);`
`397`	`397`	`}`
`398`	`398`