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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log


! { dg-do run }
!  Simple test program to see if gfortran eliminates the 'case (3:2)'
!  statement.  This is an unreachable CASE because the range is empty.
!
program select_3
  integer i
  do i = 1, 4
     select case(i)
     case (1)
       if (i /= 1) call abort
     case (3:2)
       call abort
     case (4)
       if (i /= 4) call abort
     case default
       if (i /= 2 .and. i /= 3) call abort
     end select
  end do
end program select_3

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! Simple test program to see if gfortran eliminates the 'case (3:2)'`
3			`! statement. This is an unreachable CASE because the range is empty.`
4			`!`
5			`program select_3`
6			`integer i`
7			`do i = 1, 4`
8			`select case(i)`
9			`case (1)`
10			`if (i /= 1) call abort`
11			`case (3:2)`
12			`call abort`
13			`case (4)`
14			`if (i /= 4) call abort`
15			`case default`
16			`if (i /= 2 .and. i /= 3) call abort`
17			`end select`
18			`end do`
19			`end program select_3`

Browse

Tools

Subversion Repositories openrisc

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