userop.f90

来自「用于进行gcc测试」· F90 代码 · 共 68 行

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