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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [pr32417.f90] - Blame information for rev 826

Details | Compare with Previous | View Log


! PR tree-opt/32417
! this used to crash while running IV-opts
! aff_combination_add_elt was not ready to handle pointers correctly
 
SUBROUTINE ONEINTS()
  COMMON /INFOA / NAT,NUM
  DIMENSION TINT(NUM*NUM,NAT,3,3,3),TINTM(NUM,NUM,NAT,3,3,3)
 
  CALL TINTS(IC)
  DO ID=1,3
    DO IC=1,NAT
      TINTM(J,I,IC,IAN,INU,ID) = TINT((I-1)*NUM+J,IC,IAN,INU,ID)
    ENDDO
  ENDDO
END

Line No.	Rev	Author	Line
1	303	jeremybenn	`! PR tree-opt/32417`
2			`! this used to crash while running IV-opts`
3			`! aff_combination_add_elt was not ready to handle pointers correctly`
4
5			`SUBROUTINE ONEINTS()`
6			`COMMON /INFOA / NAT,NUM`
7			`DIMENSION TINT(NUM*NUM,NAT,3,3,3),TINTM(NUM,NUM,NAT,3,3,3)`
8
9			`CALL TINTS(IC)`
10			`DO ID=1,3`
11			`DO IC=1,NAT`
12			`TINTM(J,I,IC,IAN,INU,ID) = TINT((I-1)*NUM+J,IC,IAN,INU,ID)`
13			`ENDDO`
14			`ENDDO`
15			`END`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [compile/] [pr32417.f90] - Blame information for rev 826