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

Subversion Repositories openrisc

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

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


! PR middle-end/39666
! { dg-do compile }
! { dg-options "-O2 -Wuninitialized" }
 
FUNCTION f(n)
  INTEGER, INTENT(in) :: n
  REAL                :: f
 
  SELECT CASE (n)
    CASE (:-1); f = -1.0
    CASE (0);   f =  0.0
    CASE (1:);  f =  1.0
  END SELECT
END FUNCTION

Line No.	Rev	Author	Line
1	694	jeremybenn	`! PR middle-end/39666`
2			`! { dg-do compile }`
3			`! { dg-options "-O2 -Wuninitialized" }`
4
5			`FUNCTION f(n)`
6			`INTEGER, INTENT(in) :: n`
7			`REAL :: f`
8
9			`SELECT CASE (n)`
10			`CASE (:-1); f = -1.0`
11			`CASE (0); f = 0.0`
12			`CASE (1:); f = 1.0`
13			`END SELECT`
14			`END FUNCTION`

Browse

Tools

Subversion Repositories openrisc

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