| ! { 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" } } |
