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 2954856 commit 6fefa64Copy full SHA for 6fefa64
doc/specs/stdlib_str2num.md
@@ -79,11 +79,10 @@ program example_str2num
79
use stdlib_str2num, only: to_num_p
80
character(:), allocatable, target :: chain
81
character(len=:), pointer :: cptr
82
- real(dp), allocatable :: r(:)
+ real(dp) :: r(6)
83
integer :: i
84
85
chain = " 1.234 1.E1 1e0 0.1234E0 12.21e+001 -34.5E1"
86
- allocate( r(6) )
87
cptr => chain
88
do i =1, 6
89
r(i) = to_num_p( cptr , r(i) ) !> the cptr pointer is shifted within the function
0 commit comments