From eee6792b41e7b640ab804caacade28b67f06c918 Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Tue, 13 Jul 2004 00:04:02 +0000 Subject: [PATCH] cpp.F: Copy from g77.f-torture/compile. 2004-07-13 David Billinghurst (David.Billinghurst@riotinto.com) * gfortran.dg/g77/cpp.F: Copy from g77.f-torture/compile. Add {dg-do compile} directive. * gfortran.dg/g77/cpp2.F: Likewise From-SVN: r84589 --- gcc/testsuite/ChangeLog | 8 +++++++- gcc/testsuite/gfortran.dg/g77/cpp.F | 10 ++++++++++ gcc/testsuite/gfortran.dg/g77/cpp2.F | 8 ++++++++ 3 files changed, 25 insertions(+), 1 deletion(-) create mode 100755 gcc/testsuite/gfortran.dg/g77/cpp.F create mode 100755 gcc/testsuite/gfortran.dg/g77/cpp2.F diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6b873b85830..43b7ea70a19 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2004-07-13 David Billinghurst (David.Billinghurst@riotinto.com) + + * gfortran.dg/g77/cpp.F: Copy from g77.f-torture/compile. + Add {dg-do compile} directive. + * gfortran.dg/g77/cpp2.F: Likewise + 2004-07-12 Volker Reichelt PR c++/5402 @@ -16,7 +22,7 @@ 2004-07-12 David Billinghurst (David.Billinghurst@riotinto.com) - * gfortran.dg/g77/12002.f: Copy from g77.f-torture/compile . + * gfortran.dg/g77/12002.f: Copy from g77.f-torture/compile. Add {dg-do compile} directive. * gfortran.dg/g77/13060.f: Likewise * gfortran.dg/g77/19990218-0.f: Likewise diff --git a/gcc/testsuite/gfortran.dg/g77/cpp.F b/gcc/testsuite/gfortran.dg/g77/cpp.F new file mode 100755 index 00000000000..42c4735c90c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/cpp.F @@ -0,0 +1,10 @@ +c { dg-do compile } +C When run through the C preprocessor, the indentation of the +C CONTINUE line must not be mangled. + subroutine aap(a, n) + dimension a(n) + do 10 i = 1, n + a(i) = i + 10 continue + print *, a(1) + end diff --git a/gcc/testsuite/gfortran.dg/g77/cpp2.F b/gcc/testsuite/gfortran.dg/g77/cpp2.F new file mode 100755 index 00000000000..a1ee05afdbd --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/cpp2.F @@ -0,0 +1,8 @@ +c { dg-do compile } +C The preprocessor must not introduce a newline after +C the "a" when ARGUMENTS is expanded. + +#define ARGUMENTS a\ + + subroutine yada (ARGUMENTS) + end -- 2.30.2