PRO TEST_IF, NUM, DIV

if ((num mod 2) eq 0) then begin
  print, num, ' is even'
endif

if ((num mod div) eq 0) then begin
  print, num, ' is divisible by ', div
endif else begin
  print, num, ' is not divisible by ', div
endelse

END