test_menu.f90 Source File


Contents

Source Code


Source Code

program test_menu

use, intrinsic:: iso_c_binding, only: c_ptr, c_int
use cinter, only: initscr, endwin, nodelay
use menu, only: title

implicit none (type, external)

type(c_ptr) :: stdscr

stdscr = initscr()


call title()

call endwin()

end program