! Note that the () will be introduced by the unparser
subroutine where_example()
!    logical :: should_set_cell(nx,ny,nz)
!    logical(logical_kind) :: should_set_cell(nx,ny,nz)
     logical(2) :: i(50)
!    integer :: nx,ny,nz
!    integer :: should_set_cell(nx,ny,nz)
end subroutine where_example
