26 lines
568 B
Fortran
26 lines
568 B
Fortran
! { 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
|