From 9aae783e6877a8648d93a1e7b95459e6967f8c6b Mon Sep 17 00:00:00 2001
From: "John S. Urban" <urbanjost@comcast.net>
Date: Fri, 9 Jul 2021 15:05:04 -0400
Subject: check name used for package, executable, test, or example

---
 src/fpm.f90 | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/fpm.f90')

diff --git a/src/fpm.f90 b/src/fpm.f90
index c670378..bc6741d 100644
--- a/src/fpm.f90
+++ b/src/fpm.f90
@@ -256,19 +256,19 @@ integer :: i
 call get_package_data(package, "fpm.toml", error, apply_defaults=.true.)
 if (allocated(error)) then
     print '(a)', error%message
-    error stop 1
+    stop 1
 end if
 
 call build_model(model, settings, package, error)
 if (allocated(error)) then
     print '(a)', error%message
-    error stop 1
+    stop 1
 end if
 
 call targets_from_sources(targets,model,error)
 if (allocated(error)) then
     print '(a)', error%message
-    error stop 1
+    stop 1
 end if
 
 if(settings%list)then
@@ -305,19 +305,19 @@ subroutine cmd_run(settings,test)
     call get_package_data(package, "fpm.toml", error, apply_defaults=.true.)
     if (allocated(error)) then
         print '(a)', error%message
-        error stop 1
+        stop 1
     end if
 
     call build_model(model, settings%fpm_build_settings, package, error)
     if (allocated(error)) then
         print '(a)', error%message
-        error stop 1
+        stop 1
     end if
 
     call targets_from_sources(targets,model,error)
     if (allocated(error)) then
         print '(a)', error%message
-        error stop 1
+        stop 1
     end if
 
     if (test) then
-- 
cgit v1.2.3