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

re PR fortran/58023 ([F03] ICE on invalid with bad PPC declaration) 

2015-01-11  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/58023
	* resolve.c (resolve_fl_derived0): Set error flag if problems with the
	interface of a procedure-pointer component were detected.

2015-01-11  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/58023
	* gfortran.dg/proc_ptr_comp_42.f90: New.

From-SVN: r219439
This commit is contained in:
Janus Weil 2015-01-11 20:13:24 +01:00
parent 2f9d3709ca
commit c34d453f05
4 changed files with 32 additions and 3 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 @@
2015-01-11 Janus Weil <janus@gcc.gnu.org>
PR fortran/58023
* resolve.c (resolve_fl_derived0): Set error flag if problems with the
interface of a procedure-pointer component were detected.
2015-01-11 Janus Weil <janus@gcc.gnu.org>
PR fortran/64508

8
gcc/fortran/resolve.c
View File

@ -12424,9 +12424,11 @@ resolve_fl_derived0 (gfc_symbol *sym)
{
gfc_symbol *ifc = c->ts.interface;
if (!sym->attr.vtype
&& !check_proc_interface (ifc, &c->loc))
return false;
if (!sym->attr.vtype && !check_proc_interface (ifc, &c->loc))
{
c->tb->error = 1;
return false;
}
if (ifc->attr.if_source || ifc->attr.intrinsic)
{

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2015-01-11 Janus Weil <janus@gcc.gnu.org>
PR fortran/58023
* gfortran.dg/proc_ptr_comp_42.f90: New.
2015-01-11 Janus Weil <janus@gcc.gnu.org>
PR fortran/64508

16
gcc/testsuite/gfortran.dg/proc_ptr_comp_42.f90 Normal file
View File

@ -0,0 +1,16 @@
! { dg-do compile }
!
! PR 58023: [F03] ICE on invalid with bad PPC declaration
!
! Contributed by Andrew Benson <abensonca@gmail.com>
implicit none
type :: sfd
procedure(mr), pointer :: mr2 ! { dg-error "must be explicit" }
end type
type(sfd):: d
print *, d%mr2()
end