1! { dg-do compile } 2! 3! PR fortran/33818 4! 5 6subroutine ExportZMX(lu) 7 implicit none 8 integer :: lu 9 interface 10 function LowerCase(str) 11 character(*),intent(in) :: str 12 character(len(str)) :: LowerCase 13 end function LowerCase 14 end interface 15 character(*),parameter :: UNAME(1:1)=(/'XXX'/) 16 write(lu,'(a)') 'UNIT '//UpperCase(UNAME(1)) 17 write(lu,'(a)') 'Unit '//LowerCase(UNAME(1)) 18entry ExportSEQ(lu) 19contains 20 function UpperCase(str) result(res) 21 character(*),intent(in) :: str 22 character(len(str)) res 23 res=str 24 end function 25end 26