OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/44584 (Invalid memory access with gfortran.dg/typebound_proc_15.f03)

Browse Source 
2010-06-19  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/44584
	* resolve.c (resolve_fl_derived): Reverse ordering of conditions
	to avoid ICE.


2010-06-19  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/44584
	* gfortran.dg/typebound_proc_15.f03: Modified.

From-SVN: r161041
This commit is contained in:
Janus Weil 2010-06-20 02:05:35 +02:00
parent e6bfe8a255
commit 1304f5821f
4 changed files with 21 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 @@
2010-06-19 Janus Weil <janus@gcc.gnu.org>
PR fortran/44584
* resolve.c (resolve_fl_derived): Reverse ordering of conditions
to avoid ICE.
2010-06-18 Tobias Burnus <burnus@net-b.de>
PR fortran/44556

2
gcc/fortran/resolve.c
View File

@ -10892,7 +10892,7 @@ resolve_fl_derived (gfc_symbol *sym)
c->ts.u.cl = cl;
}
}
else if (c->ts.interface->name[0] != '\0' && !sym->attr.vtype)
else if (!sym->attr.vtype && c->ts.interface->name[0] != '\0')
{
gfc_error ("Interface '%s' of procedure pointer component "
"'%s' at %L must be explicit", c->ts.interface->name,

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2010-06-19 Janus Weil <janus@gcc.gnu.org>
PR fortran/44584
* gfortran.dg/typebound_proc_15.f03: Modified.
2010-06-19 Richard Earnshaw <rearnsha@arm.com>
PR target/44072

10
gcc/testsuite/gfortran.dg/typebound_proc_15.f03
View File

@ -12,7 +12,7 @@ implicit none
type :: t
contains
procedure :: foo
procedure :: bar, baz { dg-error "PROCEDURE list" }
procedure :: bar, baz ! { dg-error "PROCEDURE list" }
end type
contains
@ -21,6 +21,14 @@ contains
class(t) :: this
end subroutine
subroutine bar (this)
class(t) :: this
end subroutine
subroutine baz (this)
class(t) :: this
end subroutine
end
! { dg-final { cleanup-modules "m" } }