| ! { 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" } } |