! { dg-do compile } ! ! PR fortran/33818 ! subroutine ExportZMX(lu) implicit none integer :: lu interface function LowerCase(str) character(*),intent(in) :: str character(len(str)) :: LowerCase end function LowerCase end interface character(*),parameter :: UNAME(1:1)=(/'XXX'/) write(lu,'(a)') 'UNIT '//UpperCase(UNAME(1)) write(lu,'(a)') 'Unit '//LowerCase(UNAME(1)) entry ExportSEQ(lu) contains function UpperCase(str) result(res) character(*),intent(in) :: str character(len(str)) res res=str end function end