program demo_oz use M_overload, only: oz, zo, lt, le, eq, ne, gt, ge implicit none write (*, *) 'is 10 < 20 ?', oz(10 < 20) write (*, *) 'elemental', oz([2 > 1, 3 == 4, 10 < 5, 100 > 50]) if (sum(oz([2 > 1, 3 == 4, 10 < 5, 100 > 50])) >= 2) then write (*, *) 'two or more are true' endif end program demo_oz