diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2011-10-17 11:46:30 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2011-10-17 11:46:30 +0200 |
| commit | fbe468a522abdbb39cc15058b8aef9ba221283db (patch) | |
| tree | 511d677a998ff7d7be135ed874b6396f4229e1c1 /gcc/fortran/primary.c | |
| parent | a7fc89c1b85e10613ac52d85a5aefeaef1d121ca (diff) | |
| download | gcc-fbe468a522abdbb39cc15058b8aef9ba221283db.zip gcc-fbe468a522abdbb39cc15058b8aef9ba221283db.tar.gz gcc-fbe468a522abdbb39cc15058b8aef9ba221283db.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/primary.c')
| -rw-r--r-- | gcc/fortran/primary.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/primary.c b/gcc/fortran/primary.c index 748185a..23dc0b6 100644 --- a/gcc/fortran/primary.c +++ b/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; |