options.c (gfc_handle_option): Ensure requested free form line length is not too...

* options.c (gfc_handle_option): Ensure requested free form line
length is not too small.

From-SVN: r124260

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 0266e54..ef1d6cb 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2007-04-28  Tobias Schlüter  <tobi@gcc.gnu.org>
+
+       * options.c (gfc_handle_option): Ensure requested free form line
+       length is not too small.
+
 2007-04-27  Brooks Moses  <brooks.moses@codesourcery.com>
 
        * intrinsic.texi (Transfer): Improve documentation.

diff --git a/gcc/fortran/options.c b/gcc/fortran/options.c
index 31c4076..fbcb94e 100644 (file)
--- a/gcc/fortran/options.c
+++ b/gcc/fortran/options.c
@@ -538,6 +538,8 @@ gfc_handle_option (size_t scode, const char *arg, int value)
       break;
 
     case OPT_ffree_line_length_:
+      if (value != 0 && value < 4)
+       gfc_fatal_error ("Free line length must be at least three.");
       gfc_option.free_line_length = value;
       break;