URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [userop.f90] - Rev 742
Go to most recent revision | Compare with Previous | Blame | View Log
module uops
implicit none
interface operator (.foo.)
module procedure myfoo
end interface
interface operator (*)
module procedure boolmul
end interface
interface assignment (=)
module procedure int2bool
end interface
contains
function myfoo (lhs, rhs)
implicit none
integer myfoo
integer, intent(in) :: lhs, rhs
myfoo = lhs + rhs
end function
! This is deliberately different from integer multiplication
function boolmul (lhs, rhs)
implicit none
logical boolmul
logical, intent(IN) :: lhs, rhs
boolmul = lhs .and. .not. rhs
end function
subroutine int2bool (lhs, rhs)
implicit none
logical, intent(out) :: lhs
integer, intent(in) :: rhs
lhs = rhs .ne. 0
end subroutine
end module
program me
use uops
implicit none
integer i, j
logical b, c
b = .true.
c = .true.
if (b * c) call abort
c = .false.
if (.not. (b * c)) call abort
if (c * b) call abort
b = .false.
if (b * c) call abort
i = 0
b = i
if (b) call abort
i = 2
b = i
if (.not. b) call abort
j = 3
if ((i .foo. j) .ne. 5) call abort
end program
Go to most recent revision | Compare with Previous | Blame | View Log