https://gcc.gnu.org/bugzilla/show_bug.cgi?id=82143
--- Comment #22 from janus at gcc dot gnu.org --- (In reply to Andreas Schwab from comment #21) > The promotion_4.f90 test fails due to bad assumptions: > > (gdb) whatis d > type = real(kind=10) This can be fixed by: Index: promotion_4.f90 =================================================================== --- promotion_4.f90 (revision 253117) +++ promotion_4.f90 (working copy) @@ -12,5 +12,5 @@ double precision :: d if (kind(r4) /= 4) call abort if (kind(r8) /= 8) call abort if (kind(r) /= 10) call abort -if (kind(d) /= 16) call abort +if (kind(d) < 10) call abort end I guess we need to xfail promotion_3 and promotion_4 on those targets where REAL(10) or REAL(16) are not supported or restrict them to those targets where they are supported (in a similar way as in promotion.f90?).
