4.3BSD/usr/contrib/icon/port/fail2.icn

#  This program tests rt/fail.s.

procedure main()
   write(case "a" of {
      1:  "no"
      []:  "no"
      "a":  "yes"
      default:  "default"
      })
end