diff options
| author | kubajj <vilouskubajj@gmail.com> | 2021-03-30 20:52:09 +0200 |
|---|---|---|
| committer | kubajj <vilouskubajj@gmail.com> | 2021-03-30 20:52:09 +0200 |
| commit | aa7eca7b9bb2344fbc60567c102e3cf413a77453 (patch) | |
| tree | fd33fbcba290aca22b8a2edeb08c81d155cff62d | |
| parent | eb3846236e7d2b4af59aafd66b115e612ab5f679 (diff) | |
| download | fpm-aa7eca7b9bb2344fbc60567c102e3cf413a77453.tar.gz fpm-aa7eca7b9bb2344fbc60567c102e3cf413a77453.zip | |
Implement suggestions bu milancurcic - add a n article to duplicates Warning, add a message to error stop
| -rw-r--r-- | fpm/src/fpm.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fpm/src/fpm.f90 b/fpm/src/fpm.f90 index c75b50a..0c8dcd9 100644 --- a/fpm/src/fpm.f90 +++ b/fpm/src/fpm.f90 @@ -190,7 +190,7 @@ subroutine build_model(model, settings, package, error) ! Check for duplicate modules call check_modules_for_duplicates(model, duplicates_found) if (duplicates_found) then - error stop + error stop 'Error: One or more duplicate module names found.' end if end subroutine build_model @@ -225,7 +225,7 @@ subroutine check_modules_for_duplicates(model, duplicates_found) if (allocated(model%packages(k)%sources(l)%modules_provided)) then do m=1,size(model%packages(k)%sources(l)%modules_provided) if (model%packages(k)%sources(l)%modules_provided(m)%s.in.modules(:modi-1)) then - write(error_unit, *) "Warning: Module ",model%packages(k)%sources(l)%modules_provided(m)%s," is duplicate" + write(error_unit, *) "Warning: Module ",model%packages(k)%sources(l)%modules_provided(m)%s," is a duplicate" duplicates_found = .true. else modules(modi) = model%packages(k)%sources(l)%modules_provided(m) |