From 7d168038cc4108f97b6347000ffdd9749a12f65a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ond=C5=99ej=20=C4=8Cert=C3=ADk?= Date: Wed, 22 Jul 2020 13:55:06 -0600 Subject: Add error stop --- fpm/src/fpm.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/fpm/src/fpm.f90 b/fpm/src/fpm.f90 index aabcfd1..846082f 100644 --- a/fpm/src/fpm.f90 +++ b/fpm/src/fpm.f90 @@ -91,6 +91,7 @@ select case (get_os_type()) end select if (stat /= 0) then print *, "execute_command_line() failed" + error stop end if open(newunit=u, file="fpm_ls.out", status="old") allocate(files(number_of_rows(u))) -- cgit v1.2.3