Subversion Repositories openrisc

! { dg-do compile }

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

!

! PR fortran/34848

!

! This was before giving an ICE; additionally

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

! argument was missing.

!

module krmod

contains

 subroutine doit()

   implicit none

    real :: doit1(2)

    doit1 = tm_doit()

   return

 end subroutine doit

 function tm_doit(genloc)

   implicit none

   character, optional  :: genloc

   real :: tm_doit(2)

   tm_doit = 42.0

 end function tm_doit

end module krmod

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

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

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