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

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

From-SVN: r124260

gcc/fortran/ChangeLog

+2007-04-28  Tobias Schlter  <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.

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;