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

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

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

From-SVN: r184426

diff --git a/gcc/config/vms/vms-ld.c b/gcc/config/vms/vms-ld.c
index 18776fa2e38b1c189d575b5e1e47e0b88b8ff010..cc57d8a24be24bb16edf993b54dc00ea3e564d9e 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");
        }
     }