diff --git a/src/fpm/git.f90 b/src/fpm/git.f90 index 1f2891af8a..a4f0f06a4a 100644 --- a/src/fpm/git.f90 +++ b/src/fpm/git.f90 @@ -441,11 +441,12 @@ subroutine git_archive(source, destination, ref, additional_files, verbose, erro endif call run('git archive '//ref//' & - --format='//archive_format// & - add_files//' \ - -o '//destination, \ - echo=verbose, \ - exitstat=stat) + & --format='//archive_format// & + & add_files//' & + & -o '//destination, & + & echo=verbose, & + & exitstat=stat) + if (stat /= 0) then call fatal_error(error, "Error packing '"//source//"'."); return end if