--- /dev/null
+/* { dg-do compile } */
+/* { dg-options "-O" } */
+
+unsigned int _Complex a0;
+unsigned int _Complex
+foo (unsigned int _Complex a1, unsigned int _Complex a2)
+{
+ unsigned int _Complex x;
+ asm goto ("" : "=r" (x) : : : lab); /* { dg-message "sorry, unimplemented" } */
+ a0 = x;
+ lab:
+ return x + a1 + a2 + 1;
+}
#include "cfgloop.h"
#include "cfganal.h"
#include "gimple-fold.h"
+#include "diagnostic-core.h"
/* For each complex ssa name, a lattice value. We're interested in finding
{
gasm *stmt = as_a <gasm *> (gsi_stmt (*gsi));
unsigned int i;
+ bool diagnosed_p = false;
for (i = 0; i < gimple_asm_noutputs (stmt); ++i)
{
if (TREE_CODE (op) == SSA_NAME
&& TREE_CODE (TREE_TYPE (op)) == COMPLEX_TYPE)
{
+ if (gimple_asm_nlabels (stmt) > 0)
+ {
+ if (!diagnosed_p)
+ {
+ sorry_at (gimple_location (stmt),
+ "%<asm goto%> with complex typed outputs");
+ diagnosed_p = true;
+ }
+ /* Make sure to not ICE later, see PR105165. */
+ tree zero = build_zero_cst (TREE_TYPE (TREE_TYPE (op)));
+ set_component_ssa_name (op, false, zero);
+ set_component_ssa_name (op, true, zero);
+ continue;
+ }
tree type = TREE_TYPE (op);
tree inner_type = TREE_TYPE (type);
tree r = build1 (REALPART_EXPR, inner_type, op);