BUG: Write of Function Returning a Character String Fails

MORE INFORMATION

Sample Code to Illustrate Problem

! Compile options needed: none

      program test
        interface
          function h(i,j)
! comment the following two lines for workaround
            dimension h(i)
            character(len=j) h
! uncomment the following two lines for workaround
!            character(len=j) h
!            dimension h(i)
          end function
        end interface

        write(*,*) h(1,1)
      end program test

      function h(i,j)
! comment the following two lines for workaround
        dimension h(i)
        character(len=j) h
! uncomment the following two lines for workaround
!        character(len=j) h
!        dimension h(i)
        h = '1234567890'
      end function