pdfex2.f95

program textex
        character(len=30)::text,str
         

        text='ssd sddj dsdww'
        str=text(3:5)
        write(*,*)str


END textex