diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2020-07-02 20:41:51 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2020-07-02 20:41:51 +0200 |
| commit | d9fb6f2b4f1321b059807ff6073156f07d9d376b (patch) | |
| tree | 56827c2a8afc827ee72cb37a636456d4bc62dbe5 /gcc | |
| parent | c6f431bba531bac3212b66069cf0f9718edf0132 (diff) | |
| download | gcc-d9fb6f2b4f1321b059807ff6073156f07d9d376b.zip gcc-d9fb6f2b4f1321b059807ff6073156f07d9d376b.tar.gz gcc-d9fb6f2b4f1321b059807ff6073156f07d9d376b.tar.bz2 | |
PR fortran/93337 - ICE in gfc_dt_upper_string, at fortran/module.c:441
When declaring a polymorphic variable that is not a dummy, allocatable or
pointer, an ICE occurred due to a NULL pointer dereference. Check for
that situation and punt.
gcc/fortran/
PR fortran/93337
* class.c (gfc_find_derived_vtab): Punt if name is not set.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/class.c | 3 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr93337.f90 | 10 |
2 files changed, 13 insertions, 0 deletions
diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index 08705c7..d6847eb 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -2277,6 +2277,9 @@ gfc_find_derived_vtab (gfc_symbol *derived) if (!derived) return NULL; + if (!derived->name) + return NULL; + /* Find the gsymbol for the module of use associated derived types. */ if ((derived->attr.use_assoc || derived->attr.used_in_submodule) && !derived->attr.vtype && !derived->attr.is_class) diff --git a/gcc/testsuite/gfortran.dg/pr93337.f90 b/gcc/testsuite/gfortran.dg/pr93337.f90 new file mode 100644 index 0000000..5cfb929 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr93337.f90 @@ -0,0 +1,10 @@ +! { dg-do compile } +! PR fortran/93337 - ICE in gfc_dt_upper_string, at fortran/module.c:441 + +program p + type t + character(:), allocatable :: a + end type t + class(t) :: x ! { dg-error "must be dummy, allocatable or pointer" } + x = x ! { dg-error "must not be polymorphic in intrinsic assignment" } +end |