From 1d8e1d5d9f87473eb7cae2c3b4109beeb87ce3da Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Fri, 10 Jul 2009 04:37:19 +0000 Subject: re PR fortran/39334 (Recusive parameter kind produces segfault) 2009-07-10 Paul Thomas PR fortran/39334 * primary.c (match_kind_param): Return MATCH_NO if the symbol has no value. 2009-07-10 Paul Thomas PR fortran/39334 * gfortran.dg/recursive_parameter_1.f90: New test. From-SVN: r149456 --- gcc/fortran/primary.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'gcc/fortran/primary.c') diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 4a84aed..8013cc8 100644 --- a/gcc/fortran/primary.c +++ b/gcc/fortran/primary.c @@ -57,6 +57,9 @@ match_kind_param (int *kind) if (sym->attr.flavor != FL_PARAMETER) return MATCH_NO; + if (sym->value == NULL) + return MATCH_NO; + p = gfc_extract_int (sym->value, kind); if (p != NULL) return MATCH_NO; -- cgit v1.1