------- 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