program maskl_negative
   print*, maskl(-24)
end program
