Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-fdump-tree-original" }

!

! PR fortran/34848

!

! The "0" for the string size of the absent optional

! argument was missing.

!

module krmod

contains

 subroutine doit()

   implicit none

    real :: doit1

    doit1 = tm_doit()

   return

 end subroutine doit

 function tm_doit(genloc)

   implicit none

   character, optional  :: genloc

   real :: tm_doit

   tm_doit = 42.0

 end function tm_doit

end module krmod

! { dg-final { scan-tree-dump " tm_doit \\(0B, 0\\);" "original" } }

! { dg-final { cleanup-tree-dump "original" } }

! { dg-final { cleanup-modules "krmod" } }