We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 42bf98d commit a9e8588Copy full SHA for a9e8588
src/stdlib_io_np_load.fypp
@@ -203,8 +203,8 @@ contains
203
select type (typed_array => arrays(i)%array)
204
class is (t_array_${t1[0]}$${k1}$_${rank}$)
205
allocate(typed_array%values, source=array)
206
- print *, 'array size: ' size(array)
207
- print *, 'typed_array%value size: ' size(typed_array%values)
+ print *, 'array size: ', size(array)
+ print *, 'typed_array%value size: ', size(typed_array%values)
208
class default
209
msg = 'Failed to allocate values.'; stat = 1
210
close(io, status='delete'); return
0 commit comments