diff options
| author | Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com> | 2021-06-20 12:23:14 +0200 |
|---|---|---|
| committer | Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com> | 2021-06-20 12:23:14 +0200 |
| commit | d9a325a01f5a63bdd99be690f8886b0b8b81aa44 (patch) | |
| tree | 4f331f1562c38b032fd412875f73f79740e2e966 /src | |
| parent | b6b95dcc9d6563666c1358e6800cc9ff064f657c (diff) | |
| download | fpm-d9a325a01f5a63bdd99be690f8886b0b8b81aa44.tar.gz fpm-d9a325a01f5a63bdd99be690f8886b0b8b81aa44.zip | |
Error handling
Diffstat (limited to 'src')
| -rw-r--r-- | src/fpm/manifest/package.f90 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/fpm/manifest/package.f90 b/src/fpm/manifest/package.f90 index 666d881..0430761 100644 --- a/src/fpm/manifest/package.f90 +++ b/src/fpm/manifest/package.f90 @@ -165,7 +165,7 @@ contains version_file = join_path(root, version) if (exists(version_file)) then deallocate(error) - open(file=version_file, unit=io, iostat=stat) + open(file=version_file, newunit=io, iostat=stat) if (stat == 0) then call getline(io, version, iostat=stat) end if @@ -180,6 +180,7 @@ contains end if end if end if + if (allocated(error)) return call get_value(table, "dependencies", child, requested=.false.) if (associated(child)) then |