Skip to content

Tighten variable scope & fix public interface #44

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 2 commits into from
Jul 15, 2023
Merged

Tighten variable scope & fix public interface #44

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
cbfb82f
refac(test_s report): tighten variable scope
rouson Jun 4, 2023
3a81368
fix(sourcery_m):order use/implicit none statements
rouson Jul 15, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 6 additions & 4 deletions src/sourcery/test_s.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -5,17 +5,19 @@
contains

module procedure report
integer i

associate(me => this_image())
if (me==1) print *, new_line('a'), test%subject()
associate(test_results => test%results())
associate(num_tests => size(test_results))
tests = tests + num_tests
if (me==1) then
do i=1,num_tests
if (me==1) print *," ",test_results(i)%characterize()
end do
block
integer i
do i=1,num_tests
if (me==1) print *," ",test_results(i)%characterize()
end do
end block
end if
block
logical, allocatable :: passing_tests(:)
Expand Down
26 changes: 14 additions & 12 deletions src/sourcery_m.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,18 +1,20 @@
module sourcery_m
!! export all public entities from every other sourcery module
implicit none
use command_line_m, only : command_line_t
use data_partition_m, only : data_partition_t
use formats_m, only : formats_t
use file_m, only : file_t
use string_m, only : string_t
use test_result_m, only : test_result_t
use test_m, only : test_t
use user_defined_collectives_m, only : co_all

use command_line_m
use string_m
use file_m
use test_result_m
use formats_m
use oracle_m
use object_m
use user_defined_collectives_m
use data_partition_m
use test_m
!! legacy modules (likely to be removed in a future release):
use object_m, only : object_t
use co_object_m, only : co_object_t
use oracle_m, only : oracle_t
use units_m
use co_object_m

implicit none

end module sourcery_m