Skip to content

Commit 43f1322

Browse files
committed
Bugfix: mismatch in Fortran array character array lengths in example 2 (#263)
* Bugfix: mismatch in Fortran array character array lengths in example 2 causing the wrong resnet category to be printed. * Update filename strings to len=128 in example 2 for consistency.
1 parent c726a5c commit 43f1322

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

examples/2_ResNet18/resnet_infer_fortran.f90

+3-3
Original file line numberDiff line numberDiff line change
@@ -40,9 +40,9 @@ subroutine main()
4040
! Path to input data
4141
character(len=128) :: data_dir
4242
! Binary file containing input tensor
43-
character(len=116) :: filename
43+
character(len=128) :: filename
4444
! Text file containing categories
45-
character(len=114) :: filename_cats
45+
character(len=128) :: filename_cats
4646

4747
! Length of tensor and number of categories
4848
integer, parameter :: tensor_length = 150528
@@ -161,7 +161,7 @@ subroutine load_categories(filename_cats, N_cats, categories)
161161

162162
character(len=*), intent(in) :: filename_cats
163163
integer, intent(in) :: N_cats
164-
character(len=100), intent(out) :: categories(N_cats)
164+
character(len=128), intent(out) :: categories(N_cats)
165165

166166
integer :: ios
167167
character(len=100) :: ioerrmsg

0 commit comments

Comments
 (0)