git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/78593 (ICE in gfc_match_varspec, at fortran/primary.c:2053) 

2016-11-30  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/78593
	* primary.c (gfc_match_varspec): Check if sym is non-null to avoid ICE.

2016-11-30  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/78593
	* gfortran.dg/derived_result.f90: New test case.

From-SVN: r243020
This commit is contained in:
Janus Weil 2016-11-30 14:23:17 +01:00
parent 4b498f721e
commit d5c50b024f
4 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2016-11-30 Janus Weil <janus@gcc.gnu.org>
PR fortran/78593
* primary.c (gfc_match_varspec): Check if sym is non-null to avoid ICE.
2016-11-30 Janus Weil <janus@gcc.gnu.org>
PR fortran/78592

2
gcc/fortran/primary.c
View File

@ -2050,7 +2050,7 @@ gfc_match_varspec (gfc_expr *primary, int equiv_flag, bool sub_flag,
if (m != MATCH_YES)
return MATCH_ERROR;
if (sym->f2k_derived)
if (sym && sym->f2k_derived)
tbp = gfc_find_typebound_proc (sym, &t, name, false, &gfc_current_locus);
else
tbp = NULL;

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2016-11-30 Janus Weil <janus@gcc.gnu.org>
PR fortran/78593
* gfortran.dg/derived_result.f90: New test case.
2016-11-30 Thomas Preud'homme <thomas.preudhomme@arm.com>
* lib/target-supports.exp (add_options_for_arm_arch_v6m): Add

10
gcc/testsuite/gfortran.dg/derived_result.f90 Normal file
View File

@ -0,0 +1,10 @@
! { dg-do compile }
!
! PR 78593: [6/7 Regression] ICE in gfc_match_varspec, at fortran/primary.c:2053
!
! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de>
type(t) function add (x, y) ! { dg-error "is not accessible" }
integer, intent(in) :: x, y
add%a = x + y ! { dg-error "Unclassifiable statement" }
end