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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [where_13.f90] - Blame information for rev 318

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


! Check empty WHERE and empty ELSEWHERE works
program where_13
   integer :: a(5)
 
   a = (/1, 2, 3, 4, 5/)
   where (a .eq. 2)
   elsewhere
   endwhere
end program
 

Line No.	Rev	Author	Line
1	303	jeremybenn	`! Check empty WHERE and empty ELSEWHERE works`
2			`program where_13`
3			`integer :: a(5)`
4
5			`a = (/1, 2, 3, 4, 5/)`
6			`where (a .eq. 2)`
7			`elsewhere`
8			`endwhere`
9			`end program`
10

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [where_13.f90] - Blame information for rev 318