From f833fc391d3192733c799dcdaf1c4df4c9919f8b Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Sat, 8 Aug 2020 12:02:59 -0400 Subject: Added make_directory subroutine. Fixed allocatable favorites to be pointers instead so the program doesn't crash. --- main.F90 | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'main.F90') diff --git a/main.F90 b/main.F90 index fd618c3..7236a2e 100644 --- a/main.F90 +++ b/main.F90 @@ -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 -- cgit v1.2.3