diff options
Diffstat (limited to 'gcc')
| -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 |