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