From 58b2a3585302ca85e06c5957e307f292c61036d9 Mon Sep 17 00:00:00 2001
From: Tobias Burnus <burnus@net-b.de>
Date: Thu, 10 Oct 2013 21:32:22 +0200
Subject: [PATCH] re PR fortran/58226 (negative subscript pos at
 fortran/options.c:1205)

2013-10-09  Tobias Burnus  <burnus@net-b.de>

        PR fortran/58226
        * options.c (gfc_get_option_string): Handle zero arg case.

From-SVN: r203394
---
 gcc/fortran/ChangeLog | 5 +++++
 gcc/fortran/options.c | 4 ++++
 2 files changed, 9 insertions(+)

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 4463ecd84dc..2a3be8d64f2 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2013-10-10  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/58226
+	* options.c (gfc_get_option_string): Handle zero arg case.
+
 2013-10-02  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/58593
diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c
index 3a9c508dc27..6e4e7c11696 100644
--- a/gcc/fortran/options.c
+++ b/gcc/fortran/options.c
@@ -1166,6 +1166,10 @@ gfc_get_option_string (void)
   size_t len, pos;
   char *result;
 
+  /* Allocate and return a one-character string with '\0'.  */
+  if (!save_decoded_options_count)
+    return XCNEWVEC (char, 1);
+
   /* Determine required string length.  */
 
   len = 0;