C=======================================================================
C   FILE: TEST32.FOR
C   DATE: 21 July 2003
C
C   TEST: Is illegal recursive write diagnosed.
C
C Contact:  Peter Teuben
C
        program try1
        character*40 mychar, line
        integer i
        external mychar
        write (*,*) 'first hello world'
        do i=1,10
           write(line,*) mychar(i)
        enddo
        end
        character*(*) function mychar(n)
C---Calling MYCHAR from an Write statement output list is illegal.
        integer n
        write(*,*) 'mychar: hello world'
        mychar = 'hello'
        end