1 2 3 4 5 6 7 8 9 10 11
with Ada.Text_IO; use Ada.Text_IO; with SDL; procedure Main is begin if not SDL.Initialise then Put("Error"); end if; end Main;