| ! { dg-do run } | |
| ! | |
| ! Test the fix for PR37723 in which the array element reference masked the dependency | |
| ! by inhibiting the test. | |
| ! | |
| ! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com> | |
| ! | |
| program try_cg0071 | |
| type seq | |
| integer ia(10) | |
| end type | |
| TYPE(SEQ) UDA1R | |
| type(seq) uda(1) | |
| do j1 = 1,10 | |
| uda1r%ia(j1) = j1 | |
| enddo | |
| uda = uda1r | |
| UDA(1)%IA(1:9) = UDA(1)%IA(9:1:-1)+1 | |
| DO J1 = 1,9 | |
| if (UDA1R%IA(10-J1)+1 /= Uda(1)%IA(J1)) STOP 1 | |
| ENDDO | |
| end | |