diff options
author | David Billinghurst <David.Billinghurst@riotinto.com> | 2004-07-13 00:04:02 +0000 |
---|---|---|
committer | David Billinghurst <billingd@gcc.gnu.org> | 2004-07-13 00:04:02 +0000 |
commit | eee6792b41e7b640ab804caacade28b67f06c918 (patch) | |
tree | 92a0b904185da8df5829f3cd196a3f6815455107 | |
parent | 1a57987b55541f7941a6297fef8dc36da55a8ac2 (diff) | |
download | gcc-eee6792b41e7b640ab804caacade28b67f06c918.zip gcc-eee6792b41e7b640ab804caacade28b67f06c918.tar.gz gcc-eee6792b41e7b640ab804caacade28b67f06c918.tar.bz2 |
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
-rw-r--r-- | gcc/testsuite/ChangeLog | 8 | ||||
-rwxr-xr-x | gcc/testsuite/gfortran.dg/g77/cpp.F | 10 | ||||
-rwxr-xr-x | gcc/testsuite/gfortran.dg/g77/cpp2.F | 8 |
3 files changed, 25 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 6b873b8..43b7ea7 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 <reichelt@igpm.rwth-aachen.de> 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 0000000..42c4735 --- /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 0000000..a1ee05a --- /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 |