Skip to content

Commit f53ad6b

Browse files
gareth-nxgareth-nx
authored
Merge pull request #780 from gareth-nx/examples_with_implicit_none
add implicit none to example programs that do not have it
2 parents 693986a + 647f5ae commit f53ad6b

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

41 files changed

+42
-1
lines changed

‎example/bitsets/example_bitsets_all.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_all
22
use stdlib_bitsets
3+
implicit none
34
character(*), parameter :: &
45
bits_all = '111111111111111111111111111111111'
56
type(bitset_64) :: set0

‎example/bitsets/example_bitsets_and.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_and
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_large) :: set0, set1
45
call set0%init(166)
56
call set1%init(166)

‎example/bitsets/example_bitsets_and_not.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_and_not
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_large) :: set0, set1
45
call set0%init(166)
56
call set1%init(166)

‎example/bitsets/example_bitsets_any.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_any
22
use stdlib_bitsets
3+
implicit none
34
character(*), parameter :: &
45
bits_0 = '0000000000000000000'
56
type(bitset_64) :: set0

‎example/bitsets/example_bitsets_bit_count.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_bit_count
22
use stdlib_bitsets
3+
implicit none
34
character(*), parameter :: &
45
bits_0 = '0000000000000000000'
56
type(bitset_64) :: set0

‎example/bitsets/example_bitsets_bits.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_bits
22
use stdlib_bitsets
3+
implicit none
34
character(*), parameter :: &
45
bits_0 = '0000000000000000000'
56
type(bitset_64) :: set0

‎example/bitsets/example_bitsets_clear.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_clear
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_large) :: set0
45
call set0%init(166)
56
call set0%not()

‎example/bitsets/example_bitsets_equality.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_equality
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_64) :: set0, set1, set2
45
call set0%init(33)
56
call set1%init(33)

‎example/bitsets/example_bitsets_extract.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_extract
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_large) :: set0, set1
45
call set0%init(166)
56
call set0%set(100, 150)

‎example/bitsets/example_bitsets_flip.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_flip
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_large) :: set0
45
call set0%init(166)
56
if (set0%none()) write (*, *) 'SET0 is properly initialized.'

‎example/bitsets/example_bitsets_from_string.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_from_string
22
use stdlib_bitsets
3+
implicit none
34
character(*), parameter :: &
45
bits_all = '111111111111111111111111111111111'
56
type(bitset_64) :: set0

‎example/bitsets/example_bitsets_ge.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_ge
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_64) :: set0, set1, set2
45
call set0%init(33)
56
call set1%init(33)

‎example/bitsets/example_bitsets_gt.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_gt
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_64) :: set0, set1, set2
45
call set0%init(33)
56
call set1%init(33)

‎example/bitsets/example_bitsets_inequality.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_inequality
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_64) :: set0, set1, set2
45
call set0%init(33)
56
call set1%init(33)

‎example/bitsets/example_bitsets_init.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_init
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_large) :: set0
45
call set0%init(166)
56
if (set0%bits() == 166) &

‎example/bitsets/example_bitsets_le.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_le
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_64) :: set0, set1, set2
45
call set0%init(33)
56
call set1%init(33)

‎example/bitsets/example_bitsets_lt.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_lt
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_64) :: set0, set1, set2
45
call set0%init(33)
56
call set1%init(33)

‎example/bitsets/example_bitsets_none.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_none
22
use stdlib_bitsets
3+
implicit none
34
character(*), parameter :: &
45
bits_0 = '0000000000000000000'
56
type(bitset_large) :: set0

‎example/bitsets/example_bitsets_not.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_not
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_large) :: set0
45
call set0%init(155)
56
if (set0%none()) then

‎example/bitsets/example_bitsets_or.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_or
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_large) :: set0, set1
45
call set0%init(166)
56
call set1%init(166)

‎example/bitsets/example_bitsets_set.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_set
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_large) :: set0
45
call set0%init(166)
56
if (set0%none()) write (*, *) 'SET0 is properly initialized.'

‎example/bitsets/example_bitsets_test.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_test
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_large) :: set0
45
call set0%init(166)
56
call set0%not()

‎example/bitsets/example_bitsets_to_string.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_to_string
22
use stdlib_bitsets
3+
implicit none
34
character(*), parameter :: &
45
bits_all = '111111111111111111111111111111111'
56
type(bitset_64) :: set0

‎example/bitsets/example_bitsets_value.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_value
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_large) :: set0
45
call set0%init(166)
56
call set0%not()

‎example/bitsets/example_bitsets_xor.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_xor
22
use stdlib_bitsets
3+
implicit none
34
type(bitset_large) :: set0, set1
45
call set0%init(166)
56
call set1%init(166)

‎example/hashmaps/example_hashmaps_get_other_data.f90

+1
Original file line numberDiff line numberDiff line change
@@ -2,6 +2,7 @@ program example_get_other_data
22
use stdlib_kinds, only: int8
33
use stdlib_hashmaps, only: chaining_hashmap_type, int_index
44
use stdlib_hashmap_wrappers, only: fnv_1_hasher, key_type, other_type, set, get
5+
implicit none
56
logical :: conflict
67
type(key_type) :: key
78
type(other_type) :: other

‎example/hashmaps/example_hashmaps_map_entry.f90

+1
Original file line numberDiff line numberDiff line change
@@ -2,6 +2,7 @@ program example_map_entry
22
use, intrinsic:: iso_fortran_env, only: int8
33
use stdlib_hashmaps, only: chaining_hashmap_type
44
use stdlib_hashmap_wrappers, only: fnv_1_hasher, key_type, other_type, set
5+
implicit none
56
type(chaining_hashmap_type) :: map
67
type(key_type) :: key
78
logical :: conflict

‎example/hashmaps/example_hashmaps_remove.f90

+1
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,7 @@ program example_remove
33
use stdlib_hashmaps, only: open_hashmap_type, int_index
44
use stdlib_hashmap_wrappers, only: fnv_1_hasher, &
55
fnv_1a_hasher, key_type, other_type, set
6+
implicit none
67
type(open_hashmap_type) :: map
78
type(key_type) :: key
89
type(other_type) :: other

‎example/logger/example_add_log_unit.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_add_log_unit
22
use stdlib_logger, only: global_logger, read_only_error
3+
implicit none
34

45
character(256) :: iomsg
56
integer :: iostat, unit, stat

‎example/logger/example_configure.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_configure
22
use stdlib_logger, only: global => global_logger
3+
implicit none
34

45
call global%configure(indent=.false., max_width=72)
56

‎example/logger/example_global_logger.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_global_logger
22
use stdlib_logger, global => global_logger
3+
implicit none
34

45
integer :: unit, stat
56

‎example/logger/example_log_io_error.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_log_io_error
22
use stdlib_logger, global => global_logger
3+
implicit none
34

45
character(*), parameter :: filename = 'nodummy.txt'
56
integer :: iostat, lun

‎example/logger/example_log_text_error.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_log_text_error
22
use stdlib_logger
3+
implicit none
34

45
character(*), parameter :: filename = 'dummy.txt'
56
integer :: col_no, line_no, lun, status

‎example/math/example_math_all_close.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
program example_math_all_close
22

33
use stdlib_math, only: all_close
4+
implicit none
45
real :: y, NAN
56
complex :: z(4, 4)
67

‎example/math/example_math_arange.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_math_arange
22
use stdlib_math, only: arange
3+
implicit none
34

45
print *, arange(3) ! [1,2,3]
56
print *, arange(-1) ! [1,0,-1]

‎example/math/example_math_arg.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_math_arg
22
use stdlib_math, only: arg
3+
implicit none
34
print *, arg((0.0, 0.0)) ! 0.0
45
print *, arg((3.0, 4.0)) ! 0.927
56
print *, arg(2.0*exp((0.0, 0.5))) ! 0.5

‎example/math/example_math_argd.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_math_argd
22
use stdlib_math, only: argd
3+
implicit none
34
print *, argd((0.0, 0.0)) ! 0.0°
45
print *, argd((3.0, 4.0)) ! 53.1°
56
print *, argd(2.0*exp((0.0, 0.5))) ! 28.64°

‎example/math/example_math_argpi.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_math_argpi
22
use stdlib_math, only: argpi
3+
implicit none
34
print *, argpi((0.0, 0.0)) ! 0.0
45
print *, argpi((3.0, 4.0)) ! 0.295
56
print *, argpi(2.0*exp((0.0, 0.5))) ! 0.159

‎example/math/example_math_is_close.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
program example_math_is_close
22

33
use stdlib_math, only: is_close
4+
implicit none
45
real :: x(2) = [1, 2], y, NAN
56

67
y = -3

‎example/strings/example_stream_of_strings_to_numbers.f90

+2-1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
program example_stream_of_strings_to_numbers
22
use stdlib_kinds, only: dp
33
use stdlib_str2num, only: to_num_from_stream
4+
implicit none
45
character(:), allocatable, target :: chain
56
character(len=:), pointer :: cptr
67
real(dp), allocatable :: r(:), p(:)
@@ -19,4 +20,4 @@ program example_stream_of_strings_to_numbers
1920
print *, "Reading with formatted read"
2021
print *, p
2122

22-
end program example_stream_of_strings_to_numbers
23+
end program example_stream_of_strings_to_numbers

‎example/strings/example_to_string.f90

+1
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,6 @@
11
program example_to_string
22
use stdlib_strings, only: to_string
3+
implicit none
34

45
!> Example for `complex` type
56
print *, to_string((1, 1)) !! "(1.00000000,1.00000000)"

0 commit comments

Comments
 (0)