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