URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [dependency_22.f90] - Blame information for rev 700

Go to most recent revision | Details | Compare with Previous | View Log


! { 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 
!
      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)) call abort()
      ENDDO
 
      end
 
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { 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`
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

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [dependency_22.f90] - Blame information for rev 700