Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/entry_dummy_ref_3.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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