re PR fortran/16465 (parser chokes with ffixed-line-length-7)

PR fortran/16465
* gfortran.dg/g77//ffixed-line-length-0.f,
gfortran.dg/g77/ffixed-line-length-132.f,
gfortran.dg/g77/ffixed-line-length-72.f,
gfortran.dg/g77/ffixed-line-length-none.f: Copy from g77.dg.
gfortran.dg/g77/README: Update.

From-SVN: r84892

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d9d4e545e85c162b4e3a039ce07d6c692b40cb9d..59db09ff3cc8e415ae4196e80c8dbfb4a8aff556 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,12 @@
+2004-07-18  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+       PR fortran/16465
+       * gfortran.dg/g77//ffixed-line-length-0.f,
+       gfortran.dg/g77/ffixed-line-length-132.f,
+       gfortran.dg/g77/ffixed-line-length-72.f,
+       gfortran.dg/g77/ffixed-line-length-none.f: Copy from g77.dg.
+       gfortran.dg/g77/README: Update.
+
 2004-07-18  Kriang Lerdsuwanakij  <lerdsuwa@users.sourceforge.net>
 
        PR c++/13092

diff --git a/gcc/testsuite/gfortran.dg/g77/README b/gcc/testsuite/gfortran.dg/g77/README
index 763b258305af817dd7226295da74f05bbfca9d59..12b9ba29567b62dec774f3127f2e4fc8b5135928 100755 (executable)
--- a/gcc/testsuite/gfortran.dg/g77/README
+++ b/gcc/testsuite/gfortran.dg/g77/README
@@ -27,11 +27,11 @@ fcase-preserve.f            ?
 ff90-1.f                       ?
 ffixed-form-1.f                        Y
 ffixed-form-2.f                        Y
-ffixed-line-length-0.f         F  PR 16464
-ffixed-line-length-132.f       F  PR 16464
-ffixed-line-length-7.f         F  PR 16464
-ffixed-line-length-72.f                F  PR 16464
-ffixed-line-length-none.f      F  PR 16464
+ffixed-line-length-0.f         Y
+ffixed-line-length-132.f       Y
+ffixed-line-length-7.f         F  PR 16465
+ffixed-line-length-72.f                Y
+ffixed-line-length-none.f      Y
 ffree-form-1.f                 Y
 ffree-form-2.f                 Y
 ffree-form-3.f                 Y

diff --git a/gcc/testsuite/gfortran.dg/g77/ffixed-line-length-0.f b/gcc/testsuite/gfortran.dg/g77/ffixed-line-length-0.f
new file mode 100644 (file)
index 0000000..80c4f3f
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/ffixed-line-length-0.f
@@ -0,0 +1,7 @@
+C Test compiler flags: -ffixed-line-length-0
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-ffixed-line-length-0" }
+C The next line has length 257
+      en                                                                                                                                                           d

diff --git a/gcc/testsuite/gfortran.dg/g77/ffixed-line-length-132.f b/gcc/testsuite/gfortran.dg/g77/ffixed-line-length-132.f
new file mode 100644 (file)
index 0000000..6101696
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/ffixed-line-length-132.f
@@ -0,0 +1,7 @@
+C Test compiler flags: -ffixed-line-length-132
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-ffixed-line-length-132" }
+c23456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012
+      en                                                                                                                           d*

diff --git a/gcc/testsuite/gfortran.dg/g77/ffixed-line-length-72.f b/gcc/testsuite/gfortran.dg/g77/ffixed-line-length-72.f
new file mode 100644 (file)
index 0000000..8a2fad1
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/ffixed-line-length-72.f
@@ -0,0 +1,7 @@
+C Test compiler flags: -ffixed-line-length-72
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-ffixed-line-length-72" }
+c2345678901234567890123456789012345678901234567890123456789012345678901234567890
+      en                                                               d*

diff --git a/gcc/testsuite/gfortran.dg/g77/ffixed-line-length-none.f b/gcc/testsuite/gfortran.dg/g77/ffixed-line-length-none.f
new file mode 100644 (file)
index 0000000..b4a5014
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/g77/ffixed-line-length-none.f
@@ -0,0 +1,7 @@
+C Test compiler flags: -ffixed-line-length-none
+C Origin: David Billinghurst <David.Billinghurst@riotinto.com>
+C
+C { dg-do compile }
+C { dg-options "-ffixed-line-length-none" }
+C The next line has length 257
+      en                                                                                                                                                           d