|
|
|
|
2017-03-07 Jakub Jelinek <jakub@redhat.com>
|
|
|
|
|
|
|
|
|
|
Partial backport
|
|
|
|
|
2016-05-07 Fritz Reese <fritzoreese@gmail.com>
|
|
|
|
|
|
|
|
|
|
PR fortran/56226
|
|
|
|
|
* interface.c (gfc_compare_derived_types): Don't ICE if the
|
|
|
|
|
derived type or both types have no components.
|
|
|
|
|
|
|
|
|
|
* gfortran.dg/rh1369183.f90: New test.
|
|
|
|
|
|
|
|
|
|
--- gcc/fortran/interface.c.jj 2015-06-18 16:32:45.000000000 +0200
|
|
|
|
|
+++ gcc/fortran/interface.c 2017-03-07 18:35:38.982302826 +0100
|
|
|
|
|
@@ -418,6 +418,13 @@ gfc_compare_derived_types (gfc_symbol *d
|
|
|
|
|
&& !(derived1->attr.is_bind_c && derived2->attr.is_bind_c))
|
|
|
|
|
return 0;
|
|
|
|
|
|
|
|
|
|
+ /* Protect against null components. */
|
|
|
|
|
+ if (derived1->attr.zero_comp != derived2->attr.zero_comp)
|
|
|
|
|
+ return 0;
|
|
|
|
|
+
|
|
|
|
|
+ if (derived1->attr.zero_comp)
|
|
|
|
|
+ return 1;
|
|
|
|
|
+
|
|
|
|
|
dt1 = derived1->components;
|
|
|
|
|
dt2 = derived2->components;
|
|
|
|
|
|
|
|
|
|
--- gcc/testsuite/gfortran.dg/rh1369183.f90.jj 2017-03-07 18:37:39.574775432 +0100
|
|
|
|
|
+++ gcc/testsuite/gfortran.dg/rh1369183.f90 2017-03-07 18:38:38.423993194 +0100
|
|
|
|
|
@@ -0,0 +1,22 @@
|
|
|
|
|
+! { dg-do compile }
|
|
|
|
|
+
|
|
|
|
|
+module mod1369183
|
|
|
|
|
+ implicit none
|
|
|
|
|
+ contains
|
|
|
|
|
+ subroutine sub(test)
|
|
|
|
|
+ type test_t
|
|
|
|
|
+ sequence
|
|
|
|
|
+ integer(4) type
|
|
|
|
|
+ end type test_t
|
|
|
|
|
+ type(test_t),intent(inout) :: test
|
|
|
|
|
+ end subroutine sub
|
|
|
|
|
+end module mod1369183
|
|
|
|
|
+subroutine rh1369183
|
|
|
|
|
+ use mod1369183
|
|
|
|
|
+ implicit none
|
|
|
|
|
+ type test_t
|
|
|
|
|
+ sequence
|
|
|
|
|
+ end type test_t
|
|
|
|
|
+ type(test_t) :: tst
|
|
|
|
|
+ call sub(tst) ! { dg-error "Type mismatch in argument" }
|
|
|
|
|
+end subroutine rh1369183
|
