1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/character_assign_1.f90 b/gcc/testsuite/gfortran.dg/character_assign_1.f90
new file mode 100644
index 000000000..a4e073299
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/character_assign_1.f90
@@ -0,0 +1,17 @@
+! { dg-do compile }
+! Tests the fix for PR35702, which caused an ICE because the types in the assignment
+! were not translated to be the same.
+!
+! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com>
+!
+MODULE TESTS
+  TYPE UNSEQ
+    CHARACTER(1) :: C
+  END TYPE UNSEQ       
+CONTAINS
+  SUBROUTINE CG0028 (TDA1L, TDA1R, nf0, nf1, nf2, nf3)
+    TYPE(UNSEQ) TDA1L(NF3)
+    TDA1L(NF1:NF2:NF1)%C = TDA1L(NF0+2:NF3:NF2/2)%C
+  END SUBROUTINE
+END MODULE TESTS
+! { dg-final { cleanup-modules "tests" } }