!
! TESTGET.F90 - Demonstrate converting CHARACTER to REAL using internal READ
!
! Compile using:
!   df testget.f90
!
PROGRAM testget
REAL x
CHARACTER (50) text
text = "12345.67"
READ (text,*) x
WRITE (*,*) x
END