)//'=',dv,errnum
 enddo
 write(*,*)"Extended intrinsics"
 write(*,*)'given inputs:',s,strings(:8)
 write(*,*)'INT(3f):',int(s),int(strings(:8))
 write(*,*)'REAL(3f):',real(s),real(strings(:8))
 write(*,*)'DBLE(3f):',dble(s),dble(strings(:8))
 write(*,*)"That's all folks!"

 end program demo_s2v

Expected output

 &gt;1/2 value of string is    5.1725000000000003
 &gt;
 &gt; STRING            VALUE                    ERROR_NUMBER
 &gt; 10.345       =   10.345000000000001                0
 &gt;+10           = 