------- Comment #3 from burnus at gcc dot gnu dot org  2007-10-19 15:15 -------
Slightly further reduced test:

subroutine ExportZMX(lu)
  implicit none
  integer :: lu
  interface
    function UpperCase(str)
      character(*),intent(in) :: str
      character(len(str))     :: UpperCase ! Rejected
!     character(1)     :: UpperCase ! Works
    end function UpperCase
  end interface
  character, parameter :: UNAME ='X'
  write(lu,'(a)') 'UNIT '//UpperCase(UNAME) ! Rejected
!  write(lu,'(a)') UpperCase(UNAME) ! Works
  entry ExportSEQ(lu)
end


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
OtherBugsDependingO|                            |32834
              nThis|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33818

Reply via email to