program demo
c       This program demonstrates how character lengths work.
c       Try entering words of different lengths and see what happens.
c       Then delete *5 after "word" in the character declaration,
c       and compile and run the program again.
        character word*5, ans*1

 1      print *, "Please enter your word : "
        read *, word
        print *
        print *, "The word you entered was : ", word
        print *

        print *, "Do you want to enter another word ? (y or n)"
        read*, ans
        print*
        if (ans .eq. "y" .or. ans .eq. "Y") go to 1
        print *, "OK, Bye"
        end