This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[gofrtran] Fix PR 16465: accept -ffixed-line-length-72
- From: Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>
- To: GCC Fortran mailing list <fortran at gcc dot gnu dot org>,patch <gcc-patches at gcc dot gnu dot org>
- Date: Sun, 11 Jul 2004 14:29:39 +0200
- Subject: [gofrtran] Fix PR 16465: accept -ffixed-line-length-72
Trivial fix for that bug.
Built and verified that it works as expected. I didn't commit this as
obvious, because someone might prefer if we allowed arbitrary line
lengths, as in -ffixed-line-length-N, where N is an arbitrary positive
integer. I can't see much value in that, but there might be.
- Tobi
Index: lang.opt
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/lang.opt,v
retrieving revision 1.4
diff -u -p -r1.4 lang.opt
--- lang.opt 22 May 2004 11:03:17 -0000 1.4
+++ lang.opt 11 Jul 2004 12:22:06 -0000
@@ -97,6 +97,10 @@ fimplicit-none
F95
Specify that no implicit typing is allowed, unless overridden by
explicit IMPLICIT statements
+ffixed-line-length-72
+F95 RejectNegative
+Use 72 character line width in fixed mode
+
ffixed-line-length-80
F95 RejectNegative
Use 80 character line width in fixed mode
Index: options.c
===================================================================
RCS file: /cvs/gcc/gcc/gcc/fortran/options.c,v
retrieving revision 1.5
diff -u -p -r1.5 options.c
--- options.c 22 May 2004 11:03:17 -0000 1.5
+++ options.c 11 Jul 2004 12:22:06 -0000
@@ -260,6 +260,10 @@ gfc_handle_option (size_t scode, const c
gfc_option.flag_repack_arrays = value;
break;
+ case OPT_ffixed_line_length_72:
+ gfc_option.fixed_line_length = 72;
+ break;
+
case OPT_ffixed_line_length_80:
gfc_option.fixed_line_length = 80;
break;