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