  :: i
 character(len=14),allocatable :: strings(:)
 doubleprecision               :: dv
 integer                       :: errnum

 ! different strings representing INTEGER, REAL, and DOUBLEPRECISION
 strings=[&amp;
 &amp;' 10.345       ',&amp;
 &amp;'+10           ',&amp;
 &amp;'    -3        ',&amp;
 &amp;'    -4.94e-2  ',&amp;
 &amp;'0.1           ',&amp;
 &amp;'12345.678910d0',&amp;
 &amp;'              ',&amp; ! Note: will return zero without an error message
 &amp;'1 2 1 2 1 . 0 ',&amp; ! Note: spaces