diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 6e5aa9d4fc3..b2ad2068b17 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,7 @@
+2014-03-08  Douglas B Rupp  <rupp@gnat.com>
+
+	* config/vms/vms.opt (vms_float_format): New variable.
+
 2014-03-08  Tobias Burnus  <burnus@net-b.de>
 
 	* doc/invoke.texi (-fcilkplus): Update implementation
diff --git a/gcc/config/vms/vms.opt b/gcc/config/vms/vms.opt
index a77d024bb07..7b6167d4ac3 100644
--- a/gcc/config/vms/vms.opt
+++ b/gcc/config/vms/vms.opt
@@ -56,4 +56,8 @@ Enum(vms_pointer_size) String(64) Value(VMS_POINTER_SIZE_64)
 EnumValue
 Enum(vms_pointer_size) String(long) Value(VMS_POINTER_SIZE_64)
 
+; The float representation format in effect for Ada
+Variable
+char vms_float_format = 'I'
+
 ; This comment is to ensure we retain the blank line above.