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

gcc/fortran/ChangeLog

+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.

gcc/fortran/primary.c

@@ -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;
 

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/kind_tests_4.f90

+! { 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