gcc/testsuite/gfortran.dg/entry_dummy_ref_3.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/33818
   4 !
   5
   6 subroutine 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))
  18 entry ExportSEQ(lu)
  19 contains
  20   function UpperCase(str) result(res)
  21     character(*),intent(in) :: str
  22     character(len(str)) res
  23     res=str
  24   end function
  25 end