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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [integer_select_1.f90] - Blame information for rev 695

Details | Compare with Previous | View Log


INTEGER         :: I = 1
SELECT CASE (I)
   CASE (-3:-5)  ! Can never be matched
      CALL abort
   CASE (1)
      CONTINUE
   CASE DEFAULT
      CALL abort
END SELECT
 
I = -3
SELECT CASE (I)
   CASE (-3:-5) ! Can never be matched
      CALL abort
   CASE (1)
      CONTINUE
   CASE DEFAULT
      CONTINUE
END SELECT
 
I = -5
SELECT CASE (I)
   CASE (-3:-5) ! Can never be matched
      CALL abort
   CASE (-5)
      CONTINUE
   CASE DEFAULT
      CALL abort
END SELECT
END
 

Line No.	Rev	Author	Line
1	695	jeremybenn	`INTEGER :: I = 1`
2			`SELECT CASE (I)`
3			`CASE (-3:-5) ! Can never be matched`
4			`CALL abort`
5			`CASE (1)`
6			`CONTINUE`
7			`CASE DEFAULT`
8			`CALL abort`
9			`END SELECT`
10
11			`I = -3`
12			`SELECT CASE (I)`
13			`CASE (-3:-5) ! Can never be matched`
14			`CALL abort`
15			`CASE (1)`
16			`CONTINUE`
17			`CASE DEFAULT`
18			`CONTINUE`
19			`END SELECT`
20
21			`I = -5`
22			`SELECT CASE (I)`
23			`CASE (-3:-5) ! Can never be matched`
24			`CALL abort`
25			`CASE (-5)`
26			`CONTINUE`
27			`CASE DEFAULT`
28			`CALL abort`
29			`END SELECT`
30			`END`
31

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [integer_select_1.f90] - Blame information for rev 695