Treat form feed as whitespace.

	gcc/fortran/
	* gfortran.texi: Document.
	* gfortran.h (gfc_is_whitespace): Include form feed ('\f').

	gcc/testsuite/gfortran.dg/
	* feed_1.f90, feed_2.f90: New testcases.

From-SVN: r241517

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ab98c202e1c8ba4742145ea03ede4ef17ff841da..d3971a63610d9d7fd7667ccf6177845fb443a503 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2016-10-25  Fritz Reese <fritzoreese@gmail.com>
+
+       * gfortran.texi: Document.
+       * gfortran.h (gfc_is_whitespace): Include form feed ('\f').
+
 2016-10-25  Fritz Reese <fritzoreese@gmail.com>
 
        * invoke.texi, gfortran.texi: Touch up documentation of -fdec.
@@ -10,6 +15,7 @@
        * lang.opt (fdec): Use Fortran Var to create flag_dec.
        * options.c (set_dec_flags): With -fdec enable -fcray-pointer,
        -fd-lines-as-comments (default), -fdollar-ok, and legacy std flags.
+
 2016-10-24  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR fortran/77828

diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index 78a75e58b51641515ce59350c13e8c57171b69bb..37423b7524a40196f22c0629b699ecba4575a22e 100644 (file)
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -60,7 +60,7 @@ not after.
 #define MAX_SUBRECORD_LENGTH 2147483639   /* 2**31-9 */
 
 
-#define gfc_is_whitespace(c) ((c==' ') || (c=='\t'))
+#define gfc_is_whitespace(c) ((c==' ') || (c=='\t') || (c=='\f'))
 
 /* Macros to check for groups of structure-like types and flavors since
    derived types, structures, maps, unions are often treated similarly. */

diff --git a/gcc/fortran/gfortran.texi b/gcc/fortran/gfortran.texi
index fa1f17cf54cf3146f9a8bdee4591b91cbaf25e43..688b9565e26ef635f1e98733f07a277b8705406c 100644 (file)
--- a/gcc/fortran/gfortran.texi
+++ b/gcc/fortran/gfortran.texi
@@ -1465,6 +1465,7 @@ compatibility extensions along with those enabled by @option{-std=legacy}.
 * Type variants for integer intrinsics::
 * AUTOMATIC and STATIC attributes::
 * Extended math intrinsics::
+* Form feed as whitespace::
 @end menu
 
 @node Old-style kind specifications
@@ -2510,6 +2511,16 @@ and then multiplying it by a constant radian-to-degree (or degree-to-radian)
 factor, as appropriate. The factor is computed at compile-time as 180/pi (or
 pi/180).
 
+@node Form feed as whitespace
+@subsection Form feed as whitespace
+@cindex form feed whitespace
+
+Historically, legacy compilers allowed insertion of form feed characters ('\f',
+ASCII 0xC) at the beginning of lines for formatted output to line printers,
+though the Fortran standard does not mention this. GNU Fortran supports the
+interpretation of form feed characters in source as whitespace for
+compatibility.
+
 
 @node Extensions not implemented in GNU Fortran
 @section Extensions not implemented in GNU Fortran

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index edc026eb44fc75b75ea82a81be3d7ba84b5f1c7b..b2662db600803c176e66251ef1fc2575cf502c63 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2016-10-25  Fritz Reese <fritzoreese@gmail.com>
+
+       gfortran.dg/
+       * feed_1.f90, feed_2.f90: New testcases.
+
 2016-10-25  Martin Liska  <mliska@suse.cz>
 
        PR sanitizer/78106

diff --git a/gcc/testsuite/gfortran.dg/feed_1.f90 b/gcc/testsuite/gfortran.dg/feed_1.f90
new file mode 100644 (file)
index 0000000..4dc98a1
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/feed_1.f90
@@ -0,0 +1,12 @@
+! { dg-do compile }
+! { dg-options "-ffree-form" }
+! Test acceptance of form feed character in free source.
+
+implicit none
+integer, volatile :: x
+
+\f
+
+x = 5
+
+end

diff --git a/gcc/testsuite/gfortran.dg/feed_2.f90 b/gcc/testsuite/gfortran.dg/feed_2.f90
new file mode 100644 (file)
index 0000000..c55435f
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/feed_2.f90
@@ -0,0 +1,12 @@
+      ! { dg-do compile }
+      ! { dg-options "-ffixed-form" }
+      ! Test acceptance of form feed character in fixed source.
+
+      implicit none
+      integer, volatile :: x
+
+\f
+
+      x = 5
+
+      end