mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
27 lines
578 B
Fortran
27 lines
578 B
Fortran
! { 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" } }
|