gcc/testsuite/gfortran.dg/dependency_22.f90

   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