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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
subroutine test1 (size, put, get)
  integer :: size
  integer, dimension(:), optional :: put
  integer, dimension(:), optional :: get
  call random_seed(size, put, get)
end
 
subroutine test2 (size, put, get)
  integer, optional :: size
  integer, dimension(:) :: put
  integer, dimension(:) :: get
  call random_seed(size, put, get) ! { dg-error "Too many arguments" }
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`subroutine test1 (size, put, get)`
4			`integer :: size`
5			`integer, dimension(:), optional :: put`
6			`integer, dimension(:), optional :: get`
7			`call random_seed(size, put, get)`
8			`end`
9
10			`subroutine test2 (size, put, get)`
11			`integer, optional :: size`
12			`integer, dimension(:) :: put`
13			`integer, dimension(:) :: get`
14			`call random_seed(size, put, get) ! { dg-error "Too many arguments" }`
15			`end`

Browse

Tools

Subversion Repositories openrisc

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