Skip to content

Commit e534a44

Browse files
sethrjsethrj
committed
Fix string intents (swig-fortran/swig#181)
1 parent 1d8ba76 commit e534a44

File tree

4 files changed

+33
-33
lines changed

4 files changed

+33
-33
lines changed

‎src/flc_map.f90

+12-12
Original file line numberDiff line numberDiff line change
@@ -633,7 +633,7 @@ subroutine SWIGTM_fin_char_Sm_(finp, iminp, temp)
633633
subroutine swigf_MapStringInt_erase(self, x, swig_result)
634634
use, intrinsic :: ISO_C_BINDING
635635
class(MapStringInt), intent(in) :: self
636-
character(len=*), target :: x
636+
character(len=*), intent(in) :: x
637637
integer, intent(out), optional :: swig_result
638638
integer(C_SIZE_T) :: fresult
639639
type(SwigClassWrapper) :: farg1
@@ -654,7 +654,7 @@ function swigf_MapStringInt_count(self, x) &
654654
use, intrinsic :: ISO_C_BINDING
655655
integer :: swig_result
656656
class(MapStringInt), intent(in) :: self
657-
character(len=*), target :: x
657+
character(len=*), intent(in) :: x
658658
integer(C_SIZE_T) :: fresult
659659
type(SwigClassWrapper) :: farg1
660660
character(kind=C_CHAR), dimension(:), allocatable, target :: farg2_temp
@@ -669,7 +669,7 @@ function swigf_MapStringInt_count(self, x) &
669669
subroutine swigf_MapStringInt_insert(self, k, v, swig_result)
670670
use, intrinsic :: ISO_C_BINDING
671671
class(MapStringInt), intent(in) :: self
672-
character(len=*), target :: k
672+
character(len=*), intent(in) :: k
673673
integer(C_INT), intent(in) :: v
674674
logical, intent(out), optional :: swig_result
675675
integer(C_INT) :: fresult
@@ -693,7 +693,7 @@ function swigf_MapStringInt_get(self, k) &
693693
use, intrinsic :: ISO_C_BINDING
694694
integer(C_INT) :: swig_result
695695
class(MapStringInt), intent(in) :: self
696-
character(len=*), target :: k
696+
character(len=*), intent(in) :: k
697697
integer(C_INT) :: fresult
698698
type(SwigClassWrapper) :: farg1
699699
character(kind=C_CHAR), dimension(:), allocatable, target :: farg2_temp
@@ -708,7 +708,7 @@ function swigf_MapStringInt_get(self, k) &
708708
subroutine swigf_MapStringInt_set(self, k, v)
709709
use, intrinsic :: ISO_C_BINDING
710710
class(MapStringInt), intent(in) :: self
711-
character(len=*), target :: k
711+
character(len=*), intent(in) :: k
712712
integer(C_INT), intent(in) :: v
713713
type(SwigClassWrapper) :: farg1
714714
character(kind=C_CHAR), dimension(:), allocatable, target :: farg2_temp
@@ -796,7 +796,7 @@ subroutine swigf_MapStringString_clear(self)
796796
subroutine swigf_MapStringString_erase(self, x, swig_result)
797797
use, intrinsic :: ISO_C_BINDING
798798
class(MapStringString), intent(in) :: self
799-
character(len=*), target :: x
799+
character(len=*), intent(in) :: x
800800
integer, intent(out), optional :: swig_result
801801
integer(C_SIZE_T) :: fresult
802802
type(SwigClassWrapper) :: farg1
@@ -817,7 +817,7 @@ function swigf_MapStringString_count(self, x) &
817817
use, intrinsic :: ISO_C_BINDING
818818
integer :: swig_result
819819
class(MapStringString), intent(in) :: self
820-
character(len=*), target :: x
820+
character(len=*), intent(in) :: x
821821
integer(C_SIZE_T) :: fresult
822822
type(SwigClassWrapper) :: farg1
823823
character(kind=C_CHAR), dimension(:), allocatable, target :: farg2_temp
@@ -832,8 +832,8 @@ function swigf_MapStringString_count(self, x) &
832832
subroutine swigf_MapStringString_insert(self, k, v, swig_result)
833833
use, intrinsic :: ISO_C_BINDING
834834
class(MapStringString), intent(in) :: self
835-
character(len=*), target :: k
836-
character(len=*), target :: v
835+
character(len=*), intent(in) :: k
836+
character(len=*), intent(in) :: v
837837
logical, intent(out), optional :: swig_result
838838
integer(C_INT) :: fresult
839839
type(SwigClassWrapper) :: farg1
@@ -871,7 +871,7 @@ function swigf_MapStringString_get(self, k) &
871871
use, intrinsic :: ISO_C_BINDING
872872
character(len=:), allocatable :: swig_result
873873
class(MapStringString), intent(in) :: self
874-
character(len=*), target :: k
874+
character(len=*), intent(in) :: k
875875
type(SwigArrayWrapper) :: fresult
876876
type(SwigClassWrapper) :: farg1
877877
character(kind=C_CHAR), dimension(:), allocatable, target :: farg2_temp
@@ -887,8 +887,8 @@ function swigf_MapStringString_get(self, k) &
887887
subroutine swigf_MapStringString_set(self, k, v)
888888
use, intrinsic :: ISO_C_BINDING
889889
class(MapStringString), intent(in) :: self
890-
character(len=*), target :: k
891-
character(len=*), target :: v
890+
character(len=*), intent(in) :: k
891+
character(len=*), intent(in) :: v
892892
type(SwigClassWrapper) :: farg1
893893
character(kind=C_CHAR), dimension(:), allocatable, target :: farg2_temp
894894
type(SwigArrayWrapper) :: farg2

‎src/flc_set.f90

+3-3
Original file line numberDiff line numberDiff line change
@@ -687,7 +687,7 @@ subroutine SWIGTM_fin_char_Sm_(finp, iminp, temp)
687687
subroutine swigf_SetString_erase(self, x, swig_result)
688688
use, intrinsic :: ISO_C_BINDING
689689
class(SetString), intent(in) :: self
690-
character(len=*), target :: x
690+
character(len=*), intent(in) :: x
691691
integer, intent(out), optional :: swig_result
692692
integer(C_SIZE_T) :: fresult
693693
type(SwigClassWrapper) :: farg1
@@ -708,7 +708,7 @@ function swigf_SetString_count(self, x) &
708708
use, intrinsic :: ISO_C_BINDING
709709
integer :: swig_result
710710
class(SetString), intent(in) :: self
711-
character(len=*), target :: x
711+
character(len=*), intent(in) :: x
712712
integer(C_SIZE_T) :: fresult
713713
type(SwigClassWrapper) :: farg1
714714
character(kind=C_CHAR), dimension(:), allocatable, target :: farg2_temp
@@ -723,7 +723,7 @@ function swigf_SetString_count(self, x) &
723723
subroutine swigf_SetString_insert(self, x, swig_result)
724724
use, intrinsic :: ISO_C_BINDING
725725
class(SetString), intent(in) :: self
726-
character(len=*), target :: x
726+
character(len=*), intent(in) :: x
727727
logical, intent(out), optional :: swig_result
728728
integer(C_INT) :: fresult
729729
type(SwigClassWrapper) :: farg1

‎src/flc_string.f90

+13-13
Original file line numberDiff line numberDiff line change
@@ -415,7 +415,7 @@ function swigf_new_string__SWIG_2(s) &
415415
result(self)
416416
use, intrinsic :: ISO_C_BINDING
417417
type(string) :: self
418-
character(len=*), target :: s
418+
character(len=*), intent(in) :: s
419419
type(SwigClassWrapper) :: fresult
420420
character(kind=C_CHAR), dimension(:), allocatable, target :: farg1_temp
421421
type(SwigArrayWrapper) :: farg1
@@ -515,7 +515,7 @@ subroutine swigf_string_resize__SWIG_1(self, count, v)
515515
subroutine swigf_string_assign(self, s)
516516
use, intrinsic :: ISO_C_BINDING
517517
class(string), intent(in) :: self
518-
character(len=*), target :: s
518+
character(len=*), intent(in) :: s
519519
type(SwigClassWrapper) :: farg1
520520
character(kind=C_CHAR), dimension(:), allocatable, target :: farg2_temp
521521
type(SwigArrayWrapper) :: farg2
@@ -560,7 +560,7 @@ function swigf_string_find__SWIG_0(self, s, pos) &
560560
use, intrinsic :: ISO_C_BINDING
561561
integer :: swig_result
562562
class(string), intent(in) :: self
563-
character(len=*), target :: s
563+
character(len=*), intent(in) :: s
564564
integer, intent(in) :: pos
565565
integer(C_SIZE_T) :: fresult
566566
type(SwigClassWrapper) :: farg1
@@ -580,7 +580,7 @@ function swigf_string_find__SWIG_1(self, s) &
580580
use, intrinsic :: ISO_C_BINDING
581581
integer :: swig_result
582582
class(string), intent(in) :: self
583-
character(len=*), target :: s
583+
character(len=*), intent(in) :: s
584584
integer(C_SIZE_T) :: fresult
585585
type(SwigClassWrapper) :: farg1
586586
character(kind=C_CHAR), dimension(:), allocatable, target :: farg2_temp
@@ -595,7 +595,7 @@ function swigf_string_find__SWIG_1(self, s) &
595595
subroutine swigf_string_append(self, s)
596596
use, intrinsic :: ISO_C_BINDING
597597
class(string), intent(in) :: self
598-
character(len=*), target :: s
598+
character(len=*), intent(in) :: s
599599
type(SwigClassWrapper) :: farg1
600600
character(kind=C_CHAR), dimension(:), allocatable, target :: farg2_temp
601601
type(SwigArrayWrapper) :: farg2
@@ -735,7 +735,7 @@ function swigf_stoi__SWIG_0(s, base) &
735735
result(swig_result)
736736
use, intrinsic :: ISO_C_BINDING
737737
integer(C_INT) :: swig_result
738-
character(len=*), target :: s
738+
character(len=*), intent(in) :: s
739739
integer(C_INT), intent(in) :: base
740740
integer(C_INT) :: fresult
741741
character(kind=C_CHAR), dimension(:), allocatable, target :: farg1_temp
@@ -752,7 +752,7 @@ function swigf_stoi__SWIG_1(s) &
752752
result(swig_result)
753753
use, intrinsic :: ISO_C_BINDING
754754
integer(C_INT) :: swig_result
755-
character(len=*), target :: s
755+
character(len=*), intent(in) :: s
756756
integer(C_INT) :: fresult
757757
character(kind=C_CHAR), dimension(:), allocatable, target :: farg1_temp
758758
type(SwigArrayWrapper) :: farg1
@@ -766,7 +766,7 @@ function swigf_stol__SWIG_0(s, base) &
766766
result(swig_result)
767767
use, intrinsic :: ISO_C_BINDING
768768
integer(C_LONG) :: swig_result
769-
character(len=*), target :: s
769+
character(len=*), intent(in) :: s
770770
integer(C_INT), intent(in) :: base
771771
integer(C_LONG) :: fresult
772772
character(kind=C_CHAR), dimension(:), allocatable, target :: farg1_temp
@@ -783,7 +783,7 @@ function swigf_stol__SWIG_1(s) &
783783
result(swig_result)
784784
use, intrinsic :: ISO_C_BINDING
785785
integer(C_LONG) :: swig_result
786-
character(len=*), target :: s
786+
character(len=*), intent(in) :: s
787787
integer(C_LONG) :: fresult
788788
character(kind=C_CHAR), dimension(:), allocatable, target :: farg1_temp
789789
type(SwigArrayWrapper) :: farg1
@@ -797,7 +797,7 @@ function swigf_stoll__SWIG_0(s, base) &
797797
result(swig_result)
798798
use, intrinsic :: ISO_C_BINDING
799799
integer(C_LONG_LONG) :: swig_result
800-
character(len=*), target :: s
800+
character(len=*), intent(in) :: s
801801
integer(C_INT), intent(in) :: base
802802
integer(C_LONG_LONG) :: fresult
803803
character(kind=C_CHAR), dimension(:), allocatable, target :: farg1_temp
@@ -814,7 +814,7 @@ function swigf_stoll__SWIG_1(s) &
814814
result(swig_result)
815815
use, intrinsic :: ISO_C_BINDING
816816
integer(C_LONG_LONG) :: swig_result
817-
character(len=*), target :: s
817+
character(len=*), intent(in) :: s
818818
integer(C_LONG_LONG) :: fresult
819819
character(kind=C_CHAR), dimension(:), allocatable, target :: farg1_temp
820820
type(SwigArrayWrapper) :: farg1
@@ -828,7 +828,7 @@ function stof(s) &
828828
result(swig_result)
829829
use, intrinsic :: ISO_C_BINDING
830830
real(C_FLOAT) :: swig_result
831-
character(len=*), target :: s
831+
character(len=*), intent(in) :: s
832832
real(C_FLOAT) :: fresult
833833
character(kind=C_CHAR), dimension(:), allocatable, target :: farg1_temp
834834
type(SwigArrayWrapper) :: farg1
@@ -842,7 +842,7 @@ function stod(s) &
842842
result(swig_result)
843843
use, intrinsic :: ISO_C_BINDING
844844
real(C_DOUBLE) :: swig_result
845-
character(len=*), target :: s
845+
character(len=*), intent(in) :: s
846846
real(C_DOUBLE) :: fresult
847847
character(kind=C_CHAR), dimension(:), allocatable, target :: farg1_temp
848848
type(SwigArrayWrapper) :: farg1

‎src/flc_vector.f90

+5-5
Original file line numberDiff line numberDiff line change
@@ -3066,7 +3066,7 @@ function swigf_new_VectorString__SWIG_3(count, v) &
30663066
use, intrinsic :: ISO_C_BINDING
30673067
type(VectorString) :: self
30683068
integer, intent(in) :: count
3069-
character(len=*), target :: v
3069+
character(len=*), intent(in) :: v
30703070
type(SwigClassWrapper) :: fresult
30713071
integer(C_SIZE_T) :: farg1
30723072
character(kind=C_CHAR), dimension(:), allocatable, target :: farg2_temp
@@ -3187,7 +3187,7 @@ subroutine swigf_VectorString_resize__SWIG_1(self, count, v)
31873187
use, intrinsic :: ISO_C_BINDING
31883188
class(VectorString), intent(in) :: self
31893189
integer, intent(in) :: count
3190-
character(len=*), target :: v
3190+
character(len=*), intent(in) :: v
31913191
type(SwigClassWrapper) :: farg1
31923192
integer(C_SIZE_T) :: farg2
31933193
character(kind=C_CHAR), dimension(:), allocatable, target :: farg3_temp
@@ -3202,7 +3202,7 @@ subroutine swigf_VectorString_resize__SWIG_1(self, count, v)
32023202
subroutine swigf_VectorString_push_back(self, v)
32033203
use, intrinsic :: ISO_C_BINDING
32043204
class(VectorString), intent(in) :: self
3205-
character(len=*), target :: v
3205+
character(len=*), intent(in) :: v
32063206
type(SwigClassWrapper) :: farg1
32073207
character(kind=C_CHAR), dimension(:), allocatable, target :: farg2_temp
32083208
type(SwigArrayWrapper) :: farg2
@@ -3234,7 +3234,7 @@ subroutine swigf_VectorString_set(self, index, v)
32343234
use, intrinsic :: ISO_C_BINDING
32353235
class(VectorString), intent(in) :: self
32363236
integer, intent(in) :: index
3237-
character(len=*), target :: v
3237+
character(len=*), intent(in) :: v
32383238
type(SwigClassWrapper) :: farg1
32393239
integer(C_SIZE_T) :: farg2
32403240
character(kind=C_CHAR), dimension(:), allocatable, target :: farg3_temp
@@ -3267,7 +3267,7 @@ subroutine swigf_VectorString_insert(self, index, v)
32673267
use, intrinsic :: ISO_C_BINDING
32683268
class(VectorString), intent(in) :: self
32693269
integer, intent(in) :: index
3270-
character(len=*), target :: v
3270+
character(len=*), intent(in) :: v
32713271
type(SwigClassWrapper) :: farg1
32723272
integer(C_SIZE_T) :: farg2
32733273
character(kind=C_CHAR), dimension(:), allocatable, target :: farg3_temp

0 commit comments

Comments
 (0)