Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/dependency_22.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { 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