doc => parseFile("output.xml", iostat=i)
if (i/=0) then
 print*, "Could not open XML file"
 ! call goAndDoSomethingElseInstead()
 print*, "A string with \"" escaped chars"
endif
c = 1
double precision x
x = 1.234e5 ! single
x = 1.234d5 ! double
x = 1.234q5 ! quad
 x = b'1001010' ! binary
 x = o'1271530' ! octal
 x = z'235A7F0' ! hex (no idea why it's z and not x)
! 15 significant digits and range of (1e-307, 1e307)
integer, parameter :: wp = selected_real_kind(15, 307)
real(wp) :: x = 1.234e5_wp ! working precision