diff --git a/example/bitsets/example_bitsets_all.f90 b/example/bitsets/example_bitsets_all.f90 index 39fc18632..c78cd9ec5 100644 --- a/example/bitsets/example_bitsets_all.f90 +++ b/example/bitsets/example_bitsets_all.f90 @@ -1,5 +1,6 @@ program example_all use stdlib_bitsets + implicit none character(*), parameter :: & bits_all = '111111111111111111111111111111111' type(bitset_64) :: set0 diff --git a/example/bitsets/example_bitsets_and.f90 b/example/bitsets/example_bitsets_and.f90 index d70e54359..2ee7f2784 100644 --- a/example/bitsets/example_bitsets_and.f90 +++ b/example/bitsets/example_bitsets_and.f90 @@ -1,5 +1,6 @@ program example_and use stdlib_bitsets + implicit none type(bitset_large) :: set0, set1 call set0%init(166) call set1%init(166) diff --git a/example/bitsets/example_bitsets_and_not.f90 b/example/bitsets/example_bitsets_and_not.f90 index 8e3677c8a..7ee8c35d3 100644 --- a/example/bitsets/example_bitsets_and_not.f90 +++ b/example/bitsets/example_bitsets_and_not.f90 @@ -1,5 +1,6 @@ program example_and_not use stdlib_bitsets + implicit none type(bitset_large) :: set0, set1 call set0%init(166) call set1%init(166) diff --git a/example/bitsets/example_bitsets_any.f90 b/example/bitsets/example_bitsets_any.f90 index 3224fc074..2413416fa 100644 --- a/example/bitsets/example_bitsets_any.f90 +++ b/example/bitsets/example_bitsets_any.f90 @@ -1,5 +1,6 @@ program example_any use stdlib_bitsets + implicit none character(*), parameter :: & bits_0 = '0000000000000000000' type(bitset_64) :: set0 diff --git a/example/bitsets/example_bitsets_bit_count.f90 b/example/bitsets/example_bitsets_bit_count.f90 index a6abaeb90..fcb26c042 100644 --- a/example/bitsets/example_bitsets_bit_count.f90 +++ b/example/bitsets/example_bitsets_bit_count.f90 @@ -1,5 +1,6 @@ program example_bit_count use stdlib_bitsets + implicit none character(*), parameter :: & bits_0 = '0000000000000000000' type(bitset_64) :: set0 diff --git a/example/bitsets/example_bitsets_bits.f90 b/example/bitsets/example_bitsets_bits.f90 index b177da1e9..0c682f7e4 100644 --- a/example/bitsets/example_bitsets_bits.f90 +++ b/example/bitsets/example_bitsets_bits.f90 @@ -1,5 +1,6 @@ program example_bits use stdlib_bitsets + implicit none character(*), parameter :: & bits_0 = '0000000000000000000' type(bitset_64) :: set0 diff --git a/example/bitsets/example_bitsets_clear.f90 b/example/bitsets/example_bitsets_clear.f90 index d184d147d..e2e33ee69 100644 --- a/example/bitsets/example_bitsets_clear.f90 +++ b/example/bitsets/example_bitsets_clear.f90 @@ -1,5 +1,6 @@ program example_clear use stdlib_bitsets + implicit none type(bitset_large) :: set0 call set0%init(166) call set0%not() diff --git a/example/bitsets/example_bitsets_equality.f90 b/example/bitsets/example_bitsets_equality.f90 index 59bc8d3f6..31a6eca8d 100644 --- a/example/bitsets/example_bitsets_equality.f90 +++ b/example/bitsets/example_bitsets_equality.f90 @@ -1,5 +1,6 @@ program example_equality use stdlib_bitsets + implicit none type(bitset_64) :: set0, set1, set2 call set0%init(33) call set1%init(33) diff --git a/example/bitsets/example_bitsets_extract.f90 b/example/bitsets/example_bitsets_extract.f90 index c4795422c..3b7295eb5 100644 --- a/example/bitsets/example_bitsets_extract.f90 +++ b/example/bitsets/example_bitsets_extract.f90 @@ -1,5 +1,6 @@ program example_extract use stdlib_bitsets + implicit none type(bitset_large) :: set0, set1 call set0%init(166) call set0%set(100, 150) diff --git a/example/bitsets/example_bitsets_flip.f90 b/example/bitsets/example_bitsets_flip.f90 index 449f758c4..5262f1681 100644 --- a/example/bitsets/example_bitsets_flip.f90 +++ b/example/bitsets/example_bitsets_flip.f90 @@ -1,5 +1,6 @@ program example_flip use stdlib_bitsets + implicit none type(bitset_large) :: set0 call set0%init(166) if (set0%none()) write (*, *) 'SET0 is properly initialized.' diff --git a/example/bitsets/example_bitsets_from_string.f90 b/example/bitsets/example_bitsets_from_string.f90 index ab85d853a..d1ff358ae 100644 --- a/example/bitsets/example_bitsets_from_string.f90 +++ b/example/bitsets/example_bitsets_from_string.f90 @@ -1,5 +1,6 @@ program example_from_string use stdlib_bitsets + implicit none character(*), parameter :: & bits_all = '111111111111111111111111111111111' type(bitset_64) :: set0 diff --git a/example/bitsets/example_bitsets_ge.f90 b/example/bitsets/example_bitsets_ge.f90 index 0a905714d..fb8ef2ea8 100644 --- a/example/bitsets/example_bitsets_ge.f90 +++ b/example/bitsets/example_bitsets_ge.f90 @@ -1,5 +1,6 @@ program example_ge use stdlib_bitsets + implicit none type(bitset_64) :: set0, set1, set2 call set0%init(33) call set1%init(33) diff --git a/example/bitsets/example_bitsets_gt.f90 b/example/bitsets/example_bitsets_gt.f90 index bc45228f7..f14db191e 100644 --- a/example/bitsets/example_bitsets_gt.f90 +++ b/example/bitsets/example_bitsets_gt.f90 @@ -1,5 +1,6 @@ program example_gt use stdlib_bitsets + implicit none type(bitset_64) :: set0, set1, set2 call set0%init(33) call set1%init(33) diff --git a/example/bitsets/example_bitsets_inequality.f90 b/example/bitsets/example_bitsets_inequality.f90 index cd8815071..9ffbf381b 100644 --- a/example/bitsets/example_bitsets_inequality.f90 +++ b/example/bitsets/example_bitsets_inequality.f90 @@ -1,5 +1,6 @@ program example_inequality use stdlib_bitsets + implicit none type(bitset_64) :: set0, set1, set2 call set0%init(33) call set1%init(33) diff --git a/example/bitsets/example_bitsets_init.f90 b/example/bitsets/example_bitsets_init.f90 index b900b9bec..01f9c922f 100644 --- a/example/bitsets/example_bitsets_init.f90 +++ b/example/bitsets/example_bitsets_init.f90 @@ -1,5 +1,6 @@ program example_init use stdlib_bitsets + implicit none type(bitset_large) :: set0 call set0%init(166) if (set0%bits() == 166) & diff --git a/example/bitsets/example_bitsets_le.f90 b/example/bitsets/example_bitsets_le.f90 index e17f0d95e..d03fb938d 100644 --- a/example/bitsets/example_bitsets_le.f90 +++ b/example/bitsets/example_bitsets_le.f90 @@ -1,5 +1,6 @@ program example_le use stdlib_bitsets + implicit none type(bitset_64) :: set0, set1, set2 call set0%init(33) call set1%init(33) diff --git a/example/bitsets/example_bitsets_lt.f90 b/example/bitsets/example_bitsets_lt.f90 index 5c2b44740..65fe9bbcf 100644 --- a/example/bitsets/example_bitsets_lt.f90 +++ b/example/bitsets/example_bitsets_lt.f90 @@ -1,5 +1,6 @@ program example_lt use stdlib_bitsets + implicit none type(bitset_64) :: set0, set1, set2 call set0%init(33) call set1%init(33) diff --git a/example/bitsets/example_bitsets_none.f90 b/example/bitsets/example_bitsets_none.f90 index f00ea8a49..02babdbc5 100644 --- a/example/bitsets/example_bitsets_none.f90 +++ b/example/bitsets/example_bitsets_none.f90 @@ -1,5 +1,6 @@ program example_none use stdlib_bitsets + implicit none character(*), parameter :: & bits_0 = '0000000000000000000' type(bitset_large) :: set0 diff --git a/example/bitsets/example_bitsets_not.f90 b/example/bitsets/example_bitsets_not.f90 index 78ebc33b6..2a7da7368 100644 --- a/example/bitsets/example_bitsets_not.f90 +++ b/example/bitsets/example_bitsets_not.f90 @@ -1,5 +1,6 @@ program example_not use stdlib_bitsets + implicit none type(bitset_large) :: set0 call set0%init(155) if (set0%none()) then diff --git a/example/bitsets/example_bitsets_or.f90 b/example/bitsets/example_bitsets_or.f90 index ddaface21..8b9efdbf3 100644 --- a/example/bitsets/example_bitsets_or.f90 +++ b/example/bitsets/example_bitsets_or.f90 @@ -1,5 +1,6 @@ program example_or use stdlib_bitsets + implicit none type(bitset_large) :: set0, set1 call set0%init(166) call set1%init(166) diff --git a/example/bitsets/example_bitsets_set.f90 b/example/bitsets/example_bitsets_set.f90 index 5409e5c17..de0e2713c 100644 --- a/example/bitsets/example_bitsets_set.f90 +++ b/example/bitsets/example_bitsets_set.f90 @@ -1,5 +1,6 @@ program example_set use stdlib_bitsets + implicit none type(bitset_large) :: set0 call set0%init(166) if (set0%none()) write (*, *) 'SET0 is properly initialized.' diff --git a/example/bitsets/example_bitsets_test.f90 b/example/bitsets/example_bitsets_test.f90 index 2f5faa41c..f7e3454a8 100644 --- a/example/bitsets/example_bitsets_test.f90 +++ b/example/bitsets/example_bitsets_test.f90 @@ -1,5 +1,6 @@ program example_test use stdlib_bitsets + implicit none type(bitset_large) :: set0 call set0%init(166) call set0%not() diff --git a/example/bitsets/example_bitsets_to_string.f90 b/example/bitsets/example_bitsets_to_string.f90 index 2bf151f83..c37940df7 100644 --- a/example/bitsets/example_bitsets_to_string.f90 +++ b/example/bitsets/example_bitsets_to_string.f90 @@ -1,5 +1,6 @@ program example_to_string use stdlib_bitsets + implicit none character(*), parameter :: & bits_all = '111111111111111111111111111111111' type(bitset_64) :: set0 diff --git a/example/bitsets/example_bitsets_value.f90 b/example/bitsets/example_bitsets_value.f90 index 9c8f84f6e..2c268c90f 100644 --- a/example/bitsets/example_bitsets_value.f90 +++ b/example/bitsets/example_bitsets_value.f90 @@ -1,5 +1,6 @@ program example_value use stdlib_bitsets + implicit none type(bitset_large) :: set0 call set0%init(166) call set0%not() diff --git a/example/bitsets/example_bitsets_xor.f90 b/example/bitsets/example_bitsets_xor.f90 index 886b16e48..0ea490ad6 100644 --- a/example/bitsets/example_bitsets_xor.f90 +++ b/example/bitsets/example_bitsets_xor.f90 @@ -1,5 +1,6 @@ program example_xor use stdlib_bitsets + implicit none type(bitset_large) :: set0, set1 call set0%init(166) call set1%init(166) diff --git a/example/hashmaps/example_hashmaps_get_other_data.f90 b/example/hashmaps/example_hashmaps_get_other_data.f90 index cedf5e1fe..1b2df31d7 100644 --- a/example/hashmaps/example_hashmaps_get_other_data.f90 +++ b/example/hashmaps/example_hashmaps_get_other_data.f90 @@ -2,6 +2,7 @@ program example_get_other_data use stdlib_kinds, only: int8 use stdlib_hashmaps, only: chaining_hashmap_type, int_index use stdlib_hashmap_wrappers, only: fnv_1_hasher, key_type, other_type, set, get + implicit none logical :: conflict type(key_type) :: key type(other_type) :: other diff --git a/example/hashmaps/example_hashmaps_map_entry.f90 b/example/hashmaps/example_hashmaps_map_entry.f90 index c28a4c28b..0136931e9 100644 --- a/example/hashmaps/example_hashmaps_map_entry.f90 +++ b/example/hashmaps/example_hashmaps_map_entry.f90 @@ -2,6 +2,7 @@ program example_map_entry use, intrinsic:: iso_fortran_env, only: int8 use stdlib_hashmaps, only: chaining_hashmap_type use stdlib_hashmap_wrappers, only: fnv_1_hasher, key_type, other_type, set + implicit none type(chaining_hashmap_type) :: map type(key_type) :: key logical :: conflict diff --git a/example/hashmaps/example_hashmaps_remove.f90 b/example/hashmaps/example_hashmaps_remove.f90 index 53e1e9b1d..7a7c39a5d 100644 --- a/example/hashmaps/example_hashmaps_remove.f90 +++ b/example/hashmaps/example_hashmaps_remove.f90 @@ -3,6 +3,7 @@ program example_remove use stdlib_hashmaps, only: open_hashmap_type, int_index use stdlib_hashmap_wrappers, only: fnv_1_hasher, & fnv_1a_hasher, key_type, other_type, set + implicit none type(open_hashmap_type) :: map type(key_type) :: key type(other_type) :: other diff --git a/example/logger/example_add_log_unit.f90 b/example/logger/example_add_log_unit.f90 index b02292b57..4e8279c8b 100644 --- a/example/logger/example_add_log_unit.f90 +++ b/example/logger/example_add_log_unit.f90 @@ -1,5 +1,6 @@ program example_add_log_unit use stdlib_logger, only: global_logger, read_only_error + implicit none character(256) :: iomsg integer :: iostat, unit, stat diff --git a/example/logger/example_configure.f90 b/example/logger/example_configure.f90 index 582a9f89d..6e35e84b5 100644 --- a/example/logger/example_configure.f90 +++ b/example/logger/example_configure.f90 @@ -1,5 +1,6 @@ program example_configure use stdlib_logger, only: global => global_logger + implicit none call global%configure(indent=.false., max_width=72) diff --git a/example/logger/example_global_logger.f90 b/example/logger/example_global_logger.f90 index 67d290678..52cd3fddb 100644 --- a/example/logger/example_global_logger.f90 +++ b/example/logger/example_global_logger.f90 @@ -1,5 +1,6 @@ program example_global_logger use stdlib_logger, global => global_logger + implicit none integer :: unit, stat diff --git a/example/logger/example_log_io_error.f90 b/example/logger/example_log_io_error.f90 index 47389aa12..ba005950e 100644 --- a/example/logger/example_log_io_error.f90 +++ b/example/logger/example_log_io_error.f90 @@ -1,5 +1,6 @@ program example_log_io_error use stdlib_logger, global => global_logger + implicit none character(*), parameter :: filename = 'nodummy.txt' integer :: iostat, lun diff --git a/example/logger/example_log_text_error.f90 b/example/logger/example_log_text_error.f90 index b94f231a9..4a4b785bc 100644 --- a/example/logger/example_log_text_error.f90 +++ b/example/logger/example_log_text_error.f90 @@ -1,5 +1,6 @@ program example_log_text_error use stdlib_logger + implicit none character(*), parameter :: filename = 'dummy.txt' integer :: col_no, line_no, lun, status diff --git a/example/math/example_math_all_close.f90 b/example/math/example_math_all_close.f90 index 99f96dbf9..f3fb66153 100644 --- a/example/math/example_math_all_close.f90 +++ b/example/math/example_math_all_close.f90 @@ -1,6 +1,7 @@ program example_math_all_close use stdlib_math, only: all_close + implicit none real :: y, NAN complex :: z(4, 4) diff --git a/example/math/example_math_arange.f90 b/example/math/example_math_arange.f90 index 2c1637d15..17b617bd0 100644 --- a/example/math/example_math_arange.f90 +++ b/example/math/example_math_arange.f90 @@ -1,5 +1,6 @@ program example_math_arange use stdlib_math, only: arange + implicit none print *, arange(3) ! [1,2,3] print *, arange(-1) ! [1,0,-1] diff --git a/example/math/example_math_arg.f90 b/example/math/example_math_arg.f90 index d1056212a..d3185b6e7 100644 --- a/example/math/example_math_arg.f90 +++ b/example/math/example_math_arg.f90 @@ -1,5 +1,6 @@ program example_math_arg use stdlib_math, only: arg + implicit none print *, arg((0.0, 0.0)) ! 0.0 print *, arg((3.0, 4.0)) ! 0.927 print *, arg(2.0*exp((0.0, 0.5))) ! 0.5 diff --git a/example/math/example_math_argd.f90 b/example/math/example_math_argd.f90 index 485ce4f0b..69f5ed099 100644 --- a/example/math/example_math_argd.f90 +++ b/example/math/example_math_argd.f90 @@ -1,5 +1,6 @@ program example_math_argd use stdlib_math, only: argd + implicit none print *, argd((0.0, 0.0)) ! 0.0° print *, argd((3.0, 4.0)) ! 53.1° print *, argd(2.0*exp((0.0, 0.5))) ! 28.64° diff --git a/example/math/example_math_argpi.f90 b/example/math/example_math_argpi.f90 index 6914f3ef0..8ee598f83 100644 --- a/example/math/example_math_argpi.f90 +++ b/example/math/example_math_argpi.f90 @@ -1,5 +1,6 @@ program example_math_argpi use stdlib_math, only: argpi + implicit none print *, argpi((0.0, 0.0)) ! 0.0 print *, argpi((3.0, 4.0)) ! 0.295 print *, argpi(2.0*exp((0.0, 0.5))) ! 0.159 diff --git a/example/math/example_math_is_close.f90 b/example/math/example_math_is_close.f90 index 1775365b0..4cf76c95b 100644 --- a/example/math/example_math_is_close.f90 +++ b/example/math/example_math_is_close.f90 @@ -1,6 +1,7 @@ program example_math_is_close use stdlib_math, only: is_close + implicit none real :: x(2) = [1, 2], y, NAN y = -3 diff --git a/example/strings/example_stream_of_strings_to_numbers.f90 b/example/strings/example_stream_of_strings_to_numbers.f90 index 40845beab..3dcd6c31e 100644 --- a/example/strings/example_stream_of_strings_to_numbers.f90 +++ b/example/strings/example_stream_of_strings_to_numbers.f90 @@ -1,6 +1,7 @@ program example_stream_of_strings_to_numbers use stdlib_kinds, only: dp use stdlib_str2num, only: to_num_from_stream + implicit none character(:), allocatable, target :: chain character(len=:), pointer :: cptr real(dp), allocatable :: r(:), p(:) @@ -19,4 +20,4 @@ program example_stream_of_strings_to_numbers print *, "Reading with formatted read" print *, p -end program example_stream_of_strings_to_numbers \ No newline at end of file +end program example_stream_of_strings_to_numbers diff --git a/example/strings/example_to_string.f90 b/example/strings/example_to_string.f90 index 0cb3f5872..71a18ff1e 100644 --- a/example/strings/example_to_string.f90 +++ b/example/strings/example_to_string.f90 @@ -1,5 +1,6 @@ program example_to_string use stdlib_strings, only: to_string + implicit none !> Example for `complex` type print *, to_string((1, 1)) !! "(1.00000000,1.00000000)"