Skip to content

Commit 14aec40

Browse files
committed
Fix type inconsistency causing XL build failure
1 parent fe2ea98 commit 14aec40

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Lib/fortran/fortranstrings.swg

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -40,7 +40,7 @@ subroutine %fortrantm(fout, char*)(imout, fout)
4040
character(kind=C_CHAR), dimension(:), pointer :: chars
4141
integer(kind=C_SIZE_T) :: i
4242
call c_f_pointer(imout%data, chars, [imout%size])
43-
allocate(character(kind=C_CHAR, len=imout%size) :: fout)
43+
allocate(character(len=imout%size) :: fout)
4444
do i=1, imout%size
4545
fout(i:i) = char(ichar(chars(i)))
4646
end do

0 commit comments

Comments
 (0)