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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! This caused an ICE for gfortrans of July 2006 vintage.  It was a regression
! that "fixed" itself.  The cause and the fix are mysteries.  This test is intended
! to signal any further regression, should it occur.
!
! Contributed by Oskar Enoksson  
 
SUBROUTINE BUG(A,B)
  IMPLICIT NONE
 
  INTEGER   :: A
  INTEGER   :: B(2)
 
  INTEGER, PARAMETER :: C(2) = (/ 1,2 /)
 
  WHERE (C(:).EQ.A)
    B = -1
  END WHERE
END SUBROUTINE BUG
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! This caused an ICE for gfortrans of July 2006 vintage. It was a regression`
3			`! that "fixed" itself. The cause and the fix are mysteries. This test is intended`
4			`! to signal any further regression, should it occur.`
5			`!`
6			`! Contributed by Oskar Enoksson`
7
8			`SUBROUTINE BUG(A,B)`
9			`IMPLICIT NONE`
10
11			`INTEGER :: A`
12			`INTEGER :: B(2)`
13
14			`INTEGER, PARAMETER :: C(2) = (/ 1,2 /)`
15
16			`WHERE (C(:).EQ.A)`
17			`B = -1`
18			`END WHERE`
19			`END SUBROUTINE BUG`
20

Browse

Tools

Subversion Repositories openrisc

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