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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR fortran/46205
!
! Contributed by Jonathan Stott
!
 
program forallBug
  logical :: valid(4) = (/ .true., .true., .false., .true. /)
  real    :: vec(4)
  integer :: j
 
  ! This is an illegal statement.  It should read valid(j), not valid.
  forall (j = 1:4, valid) ! { dg-error "requires a scalar LOGICAL expression" }
     vec(j) = sin(2*3.14159/j)
  end forall
end program forallBug

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR fortran/46205`
4			`!`
5			`! Contributed by Jonathan Stott`
6			`!`
7
8			`program forallBug`
9			`logical :: valid(4) = (/ .true., .true., .false., .true. /)`
10			`real :: vec(4)`
11			`integer :: j`
12
13			`! This is an illegal statement. It should read valid(j), not valid.`
14			`forall (j = 1:4, valid) ! { dg-error "requires a scalar LOGICAL expression" }`
15			`vec(j) = sin(2*3.14159/j)`
16			`end forall`
17			`end program forallBug`

Browse

Tools

Subversion Repositories openrisc

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