> the attached Ada testcase triggers an ICE with -mbig-endian -mhard-float:

And here it is.

-- 
Eric Botcazou
package body P is

  procedure Split (R : Rec; A, B, C, D : out Long_Float) is
  begin
    A := R.A;
    B := R.B;
    C := R.C;
    D := R.D;
  end;

end P;
package P is

  type Rec is record
    A, B, C, D: Long_Float;
  end record;

  procedure Split (R : Rec; A, B, C, D : out Long_Float);

end P;

Reply via email to