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

Subversion Repositories openrisc

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

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


! { dg-do run }
! Checks the LOGICAL version of dot_product
!
! Contributed by Paul Thomas  
!
   logical :: l1(4) = (/.TRUE.,.FALSE.,.TRUE.,.FALSE./)
   logical :: l2(4) = (/.FALSE.,.TRUE.,.FALSE.,.TRUE./)
   if (dot_product (l1, l2)) call abort ()
   l2 = .TRUE.
   if (.not.dot_product (l1, l2)) call abort ()
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! Checks the LOGICAL version of dot_product`
3			`!`
4			`! Contributed by Paul Thomas`
5			`!`
6			`logical :: l1(4) = (/.TRUE.,.FALSE.,.TRUE.,.FALSE./)`
7			`logical :: l2(4) = (/.FALSE.,.TRUE.,.FALSE.,.TRUE./)`
8			`if (dot_product (l1, l2)) call abort ()`
9			`l2 = .TRUE.`
10			`if (.not.dot_product (l1, l2)) call abort ()`
11			`end`

Browse

Tools

Subversion Repositories openrisc

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