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
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@171519
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
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)
+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.
! -- 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" } }
! -- 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" } }