1! { dg-do run }
2!
3! Test the fix for PR37723 in which the array element reference masked the dependency
4! by inhibiting the test.
5!
6! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com>
7!
8      program try_cg0071
9      type seq
10          integer ia(10)
11      end type
12      TYPE(SEQ) UDA1R
13      type(seq) uda(1)
14
15      do j1 = 1,10
16        uda1r%ia(j1) = j1
17      enddo
18
19      uda = uda1r
20      UDA(1)%IA(1:9) = UDA(1)%IA(9:1:-1)+1
21
22      DO J1 = 1,9
23         if (UDA1R%IA(10-J1)+1 /=  Uda(1)%IA(J1)) call abort()
24      ENDDO
25
26      end
27
28
29