diff options
Diffstat (limited to 'main.F90')
-rw-r--r-- | main.F90 | 13 |
1 files changed, 9 insertions, 4 deletions
@@ -27,6 +27,7 @@ use request use ag_render, only: appgraphics_renderer use ag_binary, only: appgraphics_binary_handler #else +!use sdl_render use dumb_render use dumb_binary #endif @@ -71,7 +72,7 @@ implicit none type(line), pointer::first_line type(location), pointer::locations_visited - type(favorite), dimension(:), allocatable::faves + type(favorite), dimension(:), pointer::faves #ifdef WINDOWS call windows_network_startup() @@ -106,7 +107,7 @@ implicit none call r%initialize() ! Load in any favorites - faves = load_favorites() + faves => load_favorites() locations_visited => null() desired_url = initial_site @@ -302,7 +303,7 @@ contains use favorite_handling, only: read_favorites, favorite implicit none - type(favorite), dimension(:), allocatable::faves + type(favorite), dimension(:), pointer::faves character(260)::filename integer::ios, loadunit @@ -315,6 +316,10 @@ contains faves = read_favorites(loadunit) close(loadunit) + else + + faves => null() + end if end function load_favorites @@ -324,7 +329,7 @@ contains use favorite_handling, only: write_favorites, favorite implicit none - type(favorite), dimension(:), allocatable::faves + type(favorite), dimension(:)::faves character(260)::filename integer::ios, loadunit |