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

re PR fortran/40949 (FAIL: gfortran.dg/proc_ptr_7.f90)

Browse Source 
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: r150465
This commit is contained in:
Tobias Burnus 2009-08-04 19:35:59 +02:00 committed by Tobias Burnus
parent b13b7f3990
commit 4eb0668e9b
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
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-04 Paul Thomas <pault@gcc.gnu.org>
PR fortran/40875

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

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