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

re PR fortran/58998 (Generic interface problem with gfortran)

Browse Source 
2013-12-30  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/58998
	* resolve.c (resolve_symbol): Check that symbol is not only flavorless
	but also untyped.

2013-12-30  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/58998
	* gfortran.dg/generic_28.f90: New.

From-SVN: r206249
This commit is contained in:
Janus Weil 2013-12-30 18:33:21 +01:00
parent acdcd61b09
commit 6bd5968441
4 changed files with 31 additions and 1 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 @@
2013-12-30 Janus Weil <janus@gcc.gnu.org>
PR fortran/58998
* resolve.c (resolve_symbol): Check that symbol is not only flavorless
but also untyped.
2013-12-29 Janus Weil <janus@gcc.gnu.org>
PR fortran/59612

3
gcc/fortran/resolve.c
View File

@ -12732,7 +12732,8 @@ resolve_symbol (gfc_symbol *sym)
if (sym->attr.flavor == FL_UNKNOWN
|| (sym->attr.flavor == FL_PROCEDURE && !sym->attr.intrinsic
&& !sym->attr.generic && !sym->attr.external
&& sym->attr.if_source == IFSRC_UNKNOWN))
&& sym->attr.if_source == IFSRC_UNKNOWN
&& sym->ts.type == BT_UNKNOWN))
{
/* If we find that a flavorless symbol is an interface in one of the

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2013-12-30 Janus Weil <janus@gcc.gnu.org>
PR fortran/58998
* gfortran.dg/generic_28.f90: New.
2013-12-30 Jakub Jelinek <jakub@redhat.com>
PR tree-optimization/59591

18
gcc/testsuite/gfortran.dg/generic_28.f90 Normal file
View File

@ -0,0 +1,18 @@
! { dg-do compile }
!
! PR 58998: [4.8/4.9 Regression] Generic interface problem with gfortran
!
! Contributed by Paul van Delst
interface iargc
procedure iargc_8
end interface
contains
integer(8) function iargc_8()
integer(4) iargc
iargc_8 = iargc()
end function
end