[Bug fortran/82143] add a -fdefault-real-16 flag

[janus at gcc dot gnu.org]

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?).