2012-02-21 Tristan Gingold <gingold@adacore.com>

	* config/vms/vms-ld.c (main): Fix IDENTIFICATION padding.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@184426 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/config/vms/vms-ld.c b/gcc/config/vms/vms-ld.c
index 18776fa..cc57d8a 100644 (file)
--- a/gcc/config/vms/vms-ld.c
+++ b/gcc/config/vms/vms-ld.c
@@ -640,7 +640,7 @@ main (int argc, char **argv)
        {
          /* Comes from pragma Ident ().  */
           fprintf (optfile, "case_sensitive=yes\n");
-          fprintf (optfile, "IDENTIFICATION=\"%15.15s\"\n", &argv[i][17]);
+          fprintf (optfile, "IDENTIFICATION=\"%-.15s\"\n", &argv[i][17]);
           fprintf (optfile, "case_sensitive=NO\n");
        }
     }