subroutine libfun(x)
  integer :: x
end subroutine