diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2005-07-14 09:15:00 +0200 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2005-07-14 09:15:00 +0200 |
| commit | 94b00ee4e1126901db295a7223b3c6d7c5b1868d (patch) | |
| tree | 13c40bee0e01dc6be30a1e076b1de7319d0344fd /gcc/testsuite | |
| parent | 1c80856534ddb0f084bb7cd049015c930b7d929f (diff) | |
| download | gcc-94b00ee4e1126901db295a7223b3c6d7c5b1868d.zip gcc-94b00ee4e1126901db295a7223b3c6d7c5b1868d.tar.gz gcc-94b00ee4e1126901db295a7223b3c6d7c5b1868d.tar.bz2 | |
re PR fortran/22417 (gfortran preprocessing regression: nonsense warning about file left but not entered)
PR fortran/22417
* scanner.c (preprocessor_line): Don't treat flag 3 as the start of a new
file. Fix file left but not entered warning.
* gfortran.dg/g77/cpp5.F: New test.
* gfortran.dg/g77/cpp5.h: New file.
* gfortran.dg/g77/cpp5inc.h: New file.
From-SVN: r102010
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/cpp5.F | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/cpp5.h | 3 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/g77/cpp5inc.h | 1 |
4 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b3585c7..d0c2c65 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2005-07-14 Jakub Jelinek <jakub@redhat.com> + + PR fortran/22417 + * gfortran.dg/g77/cpp5.F: New test. + * gfortran.dg/g77/cpp5.h: New file. + * gfortran.dg/g77/cpp5inc.h: New file. + 2005-07-12 Paul Thomas <pault@gcc.gnu.org> PR libfortran/16435 diff --git a/gcc/testsuite/gfortran.dg/g77/cpp5.F b/gcc/testsuite/gfortran.dg/g77/cpp5.F new file mode 100644 index 0000000..8e35d78 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/cpp5.F @@ -0,0 +1,4 @@ + ! { dg-do run } +#include "cpp5.h" + IF (FOO().NE.1) CALL ABORT () + END diff --git a/gcc/testsuite/gfortran.dg/g77/cpp5.h b/gcc/testsuite/gfortran.dg/g77/cpp5.h new file mode 100644 index 0000000..2e77f6a --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/cpp5.h @@ -0,0 +1,3 @@ + FUNCTION FOO() +#include "cpp5inc.h" + END FUNCTION diff --git a/gcc/testsuite/gfortran.dg/g77/cpp5inc.h b/gcc/testsuite/gfortran.dg/g77/cpp5inc.h new file mode 100644 index 0000000..3cc86cd --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/cpp5inc.h @@ -0,0 +1 @@ + FOO = 1 |