From d9a325a01f5a63bdd99be690f8886b0b8b81aa44 Mon Sep 17 00:00:00 2001
From: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com>
Date: Sun, 20 Jun 2021 12:23:14 +0200
Subject: Error handling

---
 src/fpm/manifest/package.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3