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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! Tests the fix for PR25073 in which overlap in logical case
! expressions was permitted.
!
! Contributed by Joost VandeVondele  
!
LOGICAL :: L
SELECT CASE(L)
CASE(.true.)
CASE(.false.)
CASE(.true.) ! { dg-error "value in CASE statement is repeated" }
END SELECT
END

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! Tests the fix for PR25073 in which overlap in logical case`
3			`! expressions was permitted.`
4			`!`
5			`! Contributed by Joost VandeVondele`
6			`!`
7			`LOGICAL :: L`
8			`SELECT CASE(L)`
9			`CASE(.true.)`
10			`CASE(.false.)`
11			`CASE(.true.) ! { dg-error "value in CASE statement is repeated" }`
12			`END SELECT`
13			`END`

Browse

Tools

Subversion Repositories openrisc

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