diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-08-08 12:02:59 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-08-08 12:02:59 -0400 |
| commit | f833fc391d3192733c799dcdaf1c4df4c9919f8b (patch) | |
| tree | 61960f846063a7cda6843159e3a1c84294817d5d /main.F90 | |
| parent | f6a2bd488ca74881855f74f5302078526cfbd81c (diff) | |
| download | LR-87-f833fc391d3192733c799dcdaf1c4df4c9919f8b.tar.gz LR-87-f833fc391d3192733c799dcdaf1c4df4c9919f8b.zip | |
Added make_directory subroutine. Fixed allocatable favorites to be pointers instead so the program doesn't crash.
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 |