Subversion Repositories openrisc_me

! { dg-do run }

! At one point, SIGN() evaluated its first argument twice.

! Contributed by Brooks Moses 

program sign1

  integer :: i

  i = 1

  if (sign(foo(i), 1) /= 1) call abort

  i = 1

  if (sign(foo(i), -1) /= -1) call abort

contains

  integer function foo(i)

    integer :: i

    foo = i

    i = i + 1

  end function

end