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

re PR fortran/47023 (C_Sizeof: Rejects valid code) 

2011-10-17  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/47023
	PR fortran/50752
	* primary.c (match_kind_param): Avoid segfault.


2011-10-17  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/47023
	PR fortran/50752
	* gfortran.dg/kind_tests_4.f90: New.

From-SVN: r180079
This commit is contained in:
Janus Weil 2011-10-17 11:46:30 +02:00
parent a7fc89c1b8
commit fbe468a522
4 changed files with 22 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 @@
2011-10-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/47023
PR fortran/50752
* primary.c (match_kind_param): Avoid segfault.
2011-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
* frontend-passes.c (current_ns): Make static.

4
gcc/fortran/primary.c
View File

@ -57,11 +57,11 @@ match_kind_param (int *kind, int *is_iso_c)
if (gfc_find_symbol (name, NULL, 1, &sym))
return MATCH_ERROR;
*is_iso_c = sym->attr.is_iso_c;
if (sym == NULL)
return MATCH_NO;
*is_iso_c = sym->attr.is_iso_c;
if (sym->attr.flavor != FL_PARAMETER)
return MATCH_NO;

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2011-10-17 Janus Weil <janus@gcc.gnu.org>
PR fortran/47023
PR fortran/50752
* gfortran.dg/kind_tests_4.f90: New.
2011-10-17 Ira Rosen <ira.rosen@linaro.org>
* gcc.dg/vect/vect-21.c: Expect the loops to get vectorized on

8
gcc/testsuite/gfortran.dg/kind_tests_4.f90 Normal file
View File

@ -0,0 +1,8 @@
! { dg-do compile }
!
! PR 50752: [4.7 Regression] ICE in match_kind_param
!
! Contributed by Joost VandeVondele <Joost.VandeVondele@pci.uzh.ch>
rPos=0.0_dp ! { dg-error "Missing kind-parameter" }
end