diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 675d1c472315750fd3e22a177653e23a79814308..6bc87a089595891596a2b61aada9de5adc85a9fe 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2006-02-18  Olivier Hainque  <hainque@adacore.com>
+
+	PR ada/13408
+	* pa.h (WIDEST_HARDWARE_FP_SIZE): Define.
+
 2006-02-18  Joseph S. Myers  <joseph@codesourcery.com>
 
 	PR target/24837
diff --git a/gcc/config/pa/pa.h b/gcc/config/pa/pa.h
index c29a8764eab089167a99dc216dced788d0d439d7..1f576507210277f3b4a0ddf3e620bc331fb9b053 100644
--- a/gcc/config/pa/pa.h
+++ b/gcc/config/pa/pa.h
@@ -289,6 +289,11 @@ typedef struct machine_function GTY(())
    conventions for TImode variables.  */
 #define MIN_UNITS_PER_WORD 4
 
+/* The widest floating point format supported by the hardware.  Note that
+   setting this influences some Ada floating point type sizes, currently
+   required for GNAT to operate properly.  */
+#define WIDEST_HARDWARE_FP_SIZE 64
+
 /* Allocation boundary (in *bits*) for storing arguments in argument list.  */
 #define PARM_BOUNDARY BITS_PER_WORD