| ! { dg-do run } |
| ! PR33162 INTRINSIC functions as ACTUAL argument |
| ! Test case adapted from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org> |
| module m |
| implicit none |
| contains |
| subroutine sub(a) |
| optional :: a |
| character(25) :: temp |
| interface |
| function a(x) |
| real(kind=8):: a |
| real(kind=8):: x |
| intent(in) :: x |
| end function a |
| end interface |
| if(present(a)) then |
| write(temp,'(f16.10)')a(4.0d0) |
| if (trim(temp) /= ' -0.6536436209') STOP 1 |
| endif |
| end subroutine sub |
| end module m |
| |
| use m |
| implicit none |
| intrinsic dcos |
| call sub() |
| call sub(dcos) |
| end |
