Skip to content

Commit e20e5ac

Browse files
committed
Update stdlib_hashmaps.f90
Removed un-needed import statements that were causing compile issues with some compilers.
1 parent a875ea7 commit e20e5ac

File tree

1 file changed

+0
-15
lines changed

1 file changed

+0
-15
lines changed

src/stdlib_hashmaps.f90

Lines changed: 0 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -824,7 +824,6 @@ subroutine int8_get_other_data( map, value, other, exists )
824824
!!
825825
!!! Int8 key generic interface for get_other_data function
826826

827-
import hashmap_type, key_type, other_type
828827
class(hashmap_type), intent(inout) :: map
829828
integer(int8), intent(in) :: value(:)
830829
type(other_type), intent(out) :: other
@@ -844,7 +843,6 @@ subroutine int32_get_other_data( map, value, other, exists )
844843
!!
845844
!! Int32 key generic interface for get_other_data function
846845

847-
import hashmap_type, key_type, other_type
848846
class(hashmap_type), intent(inout) :: map
849847
integer(int32), intent(in) :: value(:)
850848
type(other_type), intent(out) :: other
@@ -864,7 +862,6 @@ subroutine char_get_other_data( map, value, other, exists )
864862
!!
865863
!! Character key generic interface for get_other_data function
866864

867-
import hashmap_type, key_type, other_type
868865
class(hashmap_type), intent(inout) :: map
869866
character(*), intent(in) :: value
870867
type(other_type), intent(out) :: other
@@ -889,7 +886,6 @@ subroutine int8_remove_entry(map, value, existed) ! Chase's delent
889886
!! existed - a logical flag indicating whether an entry with the key
890887
!! was present in the original map
891888
!
892-
import hashmap_type, key_type
893889
class(hashmap_type), intent(inout) :: map
894890
integer(int8), intent(in) :: value(:)
895891
logical, intent(out), optional :: existed
@@ -913,7 +909,6 @@ subroutine int32_remove_entry(map, value, existed) ! Chase's delent
913909
!! existed - a logical flag indicating whether an entry with the key
914910
!! was present in the original map
915911
!
916-
import hashmap_type, key_type
917912
class(hashmap_type), intent(inout) :: map
918913
integer(int32), intent(in) :: value(:)
919914
logical, intent(out), optional :: existed
@@ -937,7 +932,6 @@ subroutine char_remove_entry(map, value, existed) ! Chase's delent
937932
!! existed - a logical flag indicating whether an entry with the key
938933
!! was present in the original map
939934
!
940-
import hashmap_type, key_type
941935
class(hashmap_type), intent(inout) :: map
942936
character(*), intent(in) :: value
943937
logical, intent(out), optional :: existed
@@ -956,7 +950,6 @@ subroutine int8_map_entry(map, value, other, conflict)
956950
!! Int8 generic interface for map entry
957951
!! ([Specifications](../page/specs/stdlib_hashmaps.html#map_entry-inserts-an-entry-into-the-hash-map))
958952
!!
959-
import hashmap_type, key_type, other_type
960953
class(hashmap_type), intent(inout) :: map
961954
integer(int8), intent(in) :: value(:)
962955
type(other_type), intent(in), optional :: other
@@ -977,7 +970,6 @@ subroutine int32_map_entry(map, value, other, conflict)
977970
!! Inserts an entry into the hash table
978971
!! ([Specifications](../page/specs/stdlib_hashmaps.html#map_entry-inserts-an-entry-into-the-hash-map))
979972
!!
980-
import hashmap_type, key_type, other_type
981973
class(hashmap_type), intent(inout) :: map
982974
integer(int32), intent(in) :: value(:)
983975
type(other_type), intent(in), optional :: other
@@ -998,7 +990,6 @@ subroutine char_map_entry(map, value, other, conflict)
998990
!! Inserts an entry into the hash table
999991
!! ([Specifications](../page/specs/stdlib_hashmaps.html#map_entry-inserts-an-entry-into-the-hash-map))
1000992
!!
1001-
import hashmap_type, key_type, other_type
1002993
class(hashmap_type), intent(inout) :: map
1003994
character(len=*), intent(in) :: value
1004995
type(other_type), intent(in), optional :: other
@@ -1024,7 +1015,6 @@ subroutine int8_key_test(map, value, present)
10241015
!! value - int8 array that is the key to lookup.
10251016
!! present - a flag indicating whether key is present in the map
10261017
!
1027-
import hashmap_type, key_type
10281018
class(hashmap_type), intent(inout) :: map
10291019
integer(int8), intent(in) :: value(:)
10301020
logical, intent(out) :: present
@@ -1051,7 +1041,6 @@ subroutine int32_key_test(map, value, present)
10511041
!! value - int32 array that is the key to lookup.
10521042
!! present - a flag indicating whether key is present in the map
10531043
!
1054-
import hashmap_type, key_type
10551044
class(hashmap_type), intent(inout) :: map
10561045
integer(int32), intent(in) :: value(:)
10571046
logical, intent(out) :: present
@@ -1076,7 +1065,6 @@ subroutine char_key_test(map, value, present)
10761065
!! value - char array that is the key to lookup.
10771066
!! present - a flag indicating whether key is present in the map
10781067
!
1079-
import hashmap_type, key_type
10801068
class(hashmap_type), intent(inout) :: map
10811069
character(*), intent(in) :: value
10821070
logical, intent(out) :: present
@@ -1102,7 +1090,6 @@ subroutine int8_set_other_data( map, value, other, exists )
11021090
!! in the map
11031091
!!
11041092
!
1105-
import hashmap_type, key_type, other_type
11061093
class(hashmap_type), intent(inout) :: map
11071094
integer(int8), intent(in) :: value(:)
11081095
type(other_type), intent(in) :: other
@@ -1129,7 +1116,6 @@ subroutine int32_set_other_data( map, value, other, exists )
11291116
!! in the map
11301117
!!
11311118
!
1132-
import hashmap_type, key_type, other_type
11331119
class(hashmap_type), intent(inout) :: map
11341120
integer(int32), intent(in) :: value(:)
11351121
type(other_type), intent(in) :: other
@@ -1156,7 +1142,6 @@ subroutine char_set_other_data( map, value, other, exists )
11561142
!! in the map
11571143
!!
11581144
!
1159-
import hashmap_type, key_type, other_type
11601145
class(hashmap_type), intent(inout) :: map
11611146
character(*), intent(in) :: value
11621147
type(other_type), intent(in) :: other

0 commit comments

Comments
 (0)