diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-03-25 18:53:35 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-03-25 18:53:35 +0100 |
| commit | 3ec1c379f9b7274b301c8365d60fdad3d110e131 (patch) | |
| tree | 557fb1200ac087deaa9d4266d3d7e47e9de32d4d /gcc/testsuite | |
| parent | fb4347e44d3e1bf9970f361cf8b25c0b7f5d1d9f (diff) | |
| download | gcc-3ec1c379f9b7274b301c8365d60fdad3d110e131.zip gcc-3ec1c379f9b7274b301c8365d60fdad3d110e131.tar.gz gcc-3ec1c379f9b7274b301c8365d60fdad3d110e131.tar.bz2 | |
re PR fortran/48174 (DWARF for subroutine with no args indicates 'varargs')
2011-03-25 Tobias Burnus <burnus@net-b.de>
PR fortran/48174
PR fortran/45304
* trans-types.c (gfc_get_function_type): Don't use varargs if
* the
procedure is known to have no arguments.
2011-03-25 Tobias Burnus <burnus@net-b.de>
PR fortran/48174
PR fortran/45304
* gfortran.dg/ishft_4.f90: Adapt scan-tree-dump-times.
* gfortran.dg/leadz_trailz_3.f90: Ditto
From-SVN: r171519
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ishft_4.f90 | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/leadz_trailz_3.f90 | 2 |
3 files changed, 10 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c7e8662..d2a1762 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,10 @@ +2011-03-25 Tobias Burnus <burnus@net-b.de> + + PR fortran/48174 + PR fortran/45304 + * gfortran.dg/ishft_4.f90: Adapt scan-tree-dump-times. + * gfortran.dg/leadz_trailz_3.f90: Ditto + 2011-03-25 Martin Jambor <mjambor@suse.cz> * gcc.c-torture/compile/pr44686.c: Do not explicitely specify -O2. diff --git a/gcc/testsuite/gfortran.dg/ishft_4.f90 b/gcc/testsuite/gfortran.dg/ishft_4.f90 index 0315c7f..4e2ad2b 100644 --- a/gcc/testsuite/gfortran.dg/ishft_4.f90 +++ b/gcc/testsuite/gfortran.dg/ishft_4.f90 @@ -35,6 +35,6 @@ end program ! -- once in the function definition itself ! -- plus as many times as the function is called ! -! { dg-final { scan-tree-dump-times "foo *\\\(\\\)" 6 "original" } } -! { dg-final { scan-tree-dump-times "bar *\\\(\\\)" 6 "original" } } +! { dg-final { scan-tree-dump-times "foo *\\\(\\\)" 5 "original" } } +! { dg-final { scan-tree-dump-times "bar *\\\(\\\)" 5 "original" } } ! { dg-final { cleanup-tree-dump "original" } } diff --git a/gcc/testsuite/gfortran.dg/leadz_trailz_3.f90 b/gcc/testsuite/gfortran.dg/leadz_trailz_3.f90 index f8466ff..b54a11f 100644 --- a/gcc/testsuite/gfortran.dg/leadz_trailz_3.f90 +++ b/gcc/testsuite/gfortran.dg/leadz_trailz_3.f90 @@ -26,5 +26,5 @@ end program ! -- once in the function definition itself ! -- plus as many times as the function is called ! -! { dg-final { scan-tree-dump-times "foo *\\\(\\\)" 8 "original" } } +! { dg-final { scan-tree-dump-times "foo *\\\(\\\)" 7 "original" } } ! { dg-final { cleanup-tree-dump "original" } } |