mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-09 03:00:27 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/40969 (Revision 150465 failed gfortran.dg/c_by_val_1.f)

Browse Source 
2009-08-05  Tobias Burnus  <burnus@net-b.de>

        PR fortran/40969
        Revert:
        2009-08-04  Tobias Burnus  <burnus@net-b.de>

        PR fortran/40949
        * trans-types.c (gfc_get_function_type): Fix typelist of
        functions without argument.

From-SVN: r150500
This commit is contained in:
Tobias Burnus 2009-08-05 22:47:19 +02:00 committed by Tobias Burnus
parent dcbd7063fc
commit a7b75755c5
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/fortran/ChangeLog
View File

@ -1,3 +1,13 @@
2009-08-05 Tobias Burnus <burnus@net-b.de>
PR fortran/40969
Revert:
2009-08-04 Tobias Burnus <burnus@net-b.de>
PR fortran/40949
* trans-types.c (gfc_get_function_type): Fix typelist of
functions without argument.
2009-08-05 Paul Thomas <pault@gcc.gnu.org>
PR fortran/40847

3
gcc/fortran/trans-types.c
View File

@ -2324,7 +2324,8 @@ gfc_get_function_type (gfc_symbol * sym)
while (nstr--)
typelist = gfc_chainon_list (typelist, gfc_charlen_type_node);
typelist = gfc_chainon_list (typelist, void_type_node);
if (typelist)
typelist = gfc_chainon_list (typelist, void_type_node);
if (alternate_return)
type = integer_type_node;