************************************************************************ * Demonstrates use of 'itoc', which converts integers to character * strings, declared here to be character*2. * * Expected output: * * % demoitoc2 * itoc(0) = <0> * itoc(9) = <9> * itoc(10) = <10> ************************************************************************ program demoitoc2 integer indlnb character*2 itoc character*128 b b=itoc(0) write(0,*) 'itoc(0) = <'//b(1:indlnb(b))//'>' b=itoc(9) write(0,*) 'itoc(9) = <'//b(1:indlnb(b))//'>' b=itoc(10) write(0,*) 'itoc(10) = <'//b(1:indlnb(b))//'>' stop end