procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/48174 (DWARF for subroutine with no args indicates 'varargs')

Browse source 
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
This commit is contained in:
Tobias Burnus 2011-03-25 18:53:35 +01:00 • committed by Tobias Burnus
parent fb4347e44d
commit 3ec1c379f9
5 changed files with 18 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View file

@ -1,3 +1,10 @@
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.
2010-03-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/22572

2
gcc/fortran/trans-types.c
View file

@ -2618,7 +2618,7 @@ gfc_get_function_type (gfc_symbol * sym)
if (typelist)
typelist = chainon (typelist, void_list_node);
else if (sym->attr.is_main_program)
else if (sym->attr.is_main_program || sym->attr.if_source != IFSRC_UNKNOWN)
typelist = void_list_node;
if (alternate_return)

7
gcc/testsuite/ChangeLog
View file

@ -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.

4
gcc/testsuite/gfortran.dg/ishft_4.f90
View file

@ -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" } }

2
gcc/testsuite/gfortran.dg/leadz_trailz_3.f90
View file

@ -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" } }