[COMMITTED] XFAIL default_format_2.f90 and default_format_denormal_2.f90 on hppa*-*-hpux*

John David Anglin <[email protected]> Wed, 5 Aug 2026 16:29:05 -0400
Newsgroups gmane.comp.gcc.patches,gmane.comp.gcc.fortran
Message-ID <[email protected]>
Tested on hppa64-hp-hpux11.11.  Committed to trunk.

Dave
---

XFAIL default_format_2.f90 and default_format_denormal_2.f90 on hppa*-*-hpux*

On hppa*-*-hpux*, snprintf only provides 33 digits of decimal
precision for long doubles.  This is insufficient to uniquely
identify long double values.  As a result, these tests fail.

2026-08-05  John David Anglin  <[email protected]>

gcc/testsuite/ChangeLog:

	* gfortran.dg/default_format_2.f90: XFAIL on hppa*-*-hpux*.
	* gfortran.dg/default_format_denormal_2.f90: Likewise.

diff --git a/gcc/testsuite/gfortran.dg/default_format_2.f90 b/gcc/testsuite/gfortran.dg/default_format_2.f90
index dd04d3aae98..35c23412099 100644
--- a/gcc/testsuite/gfortran.dg/default_format_2.f90
+++ b/gcc/testsuite/gfortran.dg/default_format_2.f90
@@ -1,7 +1,10 @@
-! { dg-do run { xfail long_double_is_ibm128 } }
+! { dg-do run { xfail { long_double_is_ibm128 || hppa*-*-hpux* } } }
 ! { dg-require-effective-target fortran_large_real }
 ! Test XFAILed on these platforms because the system's printf() lacks
 ! proper support for denormalized long doubles. See PR24685
+! On hppa*-*-hpux*, snprintf only provides 33 digits of decimal
+! precision for long doubles.  This is insufficient to uniquely
+! identify long double values.
 !
 ! This tests that the default formats for formatted I/O of reals are
 ! wide enough and have enough precision, by checking that values can
diff --git a/gcc/testsuite/gfortran.dg/default_format_denormal_2.f90 b/gcc/testsuite/gfortran.dg/default_format_denormal_2.f90
index ae056d506a2..37d62bbfb65 100644
--- a/gcc/testsuite/gfortran.dg/default_format_denormal_2.f90
+++ b/gcc/testsuite/gfortran.dg/default_format_denormal_2.f90
@@ -1,7 +1,10 @@
-! { dg-do run { xfail long_double_is_ibm128 } }
+! { dg-do run { xfail { long_double_is_ibm128 || hppa*-*-hpux* } } }
 ! { dg-require-effective-target fortran_large_real }
 ! Test XFAILed on this platform because the system's printf() lacks
 ! proper support for denormalized long doubles. See PR24685
+! On hppa*-*-hpux*, snprintf only provides 33 digits of decimal
+! precision for long doubles.  This is insufficient to uniquely
+! identify long double values.
 !
 ! This tests that the default formats for formatted I/O of reals are
 ! wide enough and have enough precision, by checking that values can
signature.asc (application/pgp-signature, 833 B)
-----BEGIN PGP SIGNATURE-----

iQIzBAABCAAdFiEEnRzl+6e9+DTrEhyEXb/Nrl8ZTfEFAmpznRAACgkQXb/Nrl8Z
TfGvRA//fm2GQd+aB+8s6UvqrxNHyTnpkLCwUx/0lulAezzcXpRfK6b0Xlti2bTe
wt96DCpI3Qvi2X+oJwdgdN843mgkylfWH4pT8PptC/rYfFSMhKNLx2hnKZP6PeDk
TUYL+XmjnknRPksCMmRfYw8ViPaktxbfkOA7VJtNfcVxbTb+nFlbkEb6n7T9v2is
aWwQ3iARVwtwB8qxwiYDnPrsgwom4KdHwx2QZt6YOPwOeJDBB378CSGT86nOIG7K
UltMUP9FdEQ0u5bA5nTrIEblKJ93Sb8JFyFRmft3JGlEbkxNDKeup8L9hp0T4qNL
SPlTs1D5fmQU8DmC5rQ2RMbQNglq69X+i3+UA+3nqxSeSsBaVSozT7kdM78DOduM
FOanY9H15E8YNb/xH4Avwh35rUwbV58uy+chddixP8IzXXkHaU2YFuGG8NBivmvn
fg2C77rAt67MoSAJBsp5M/Xda7k5iRDW2Zcc0gWgYdB4URpZ1vvc+69t8AzpMARN
7Z9r6R4pxg+fhy52LjMXTjCRbZL7OiPXmoT3CWxLQ1qYU+FXVd+XyGzh1qqTPXU3
U4P7wB+5vBU7ZgZLfHFc4SV9NBMFZTLPv0NYv3OcQs2s+J7+evOIUdNk2JimaPmp
5LlIWiuYoklqJuLb/1LkIZ7sTf1nBkuuktIorwnEXSGeNQD57Gs=
=EqLz
-----END PGP SIGNATURE-----