Subversion Repositories openrisc

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