From 3d23e0184a2917a9e5b1ef56b7a3c99d6398f08d Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Sun, 18 Jul 2004 15:06:31 +0200 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 9 +++++++++ gcc/testsuite/gfortran.dg/g77/README | 10 +++++----- gcc/testsuite/gfortran.dg/g77/ffixed-line-length-0.f | 7 +++++++ gcc/testsuite/gfortran.dg/g77/ffixed-line-length-132.f | 7 +++++++ gcc/testsuite/gfortran.dg/g77/ffixed-line-length-72.f | 7 +++++++ .../gfortran.dg/g77/ffixed-line-length-none.f | 7 +++++++ 6 files changed, 42 insertions(+), 5 deletions(-) create mode 100644 gcc/testsuite/gfortran.dg/g77/ffixed-line-length-0.f create mode 100644 gcc/testsuite/gfortran.dg/g77/ffixed-line-length-132.f create mode 100644 gcc/testsuite/gfortran.dg/g77/ffixed-line-length-72.f create mode 100644 gcc/testsuite/gfortran.dg/g77/ffixed-line-length-none.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d9d4e545e85c..59db09ff3cc8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,12 @@ +2004-07-18 Tobias Schlueter + + 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 PR c++/13092 diff --git a/gcc/testsuite/gfortran.dg/g77/README b/gcc/testsuite/gfortran.dg/g77/README index 763b258305af..12b9ba29567b 100755 --- 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 index 000000000000..80c4f3f56ca6 --- /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 +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 index 000000000000..6101696758cd --- /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 +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 index 000000000000..8a2fad1fad2a --- /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 +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 index 000000000000..b4a50147f127 --- /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 +C +C { dg-do compile } +C { dg-options "-ffixed-line-length-none" } +C The next line has length 257 + en d -- 2.43.5