projects
/
platform
/
upstream
/
gcc48.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
2d72caa058d6ff520dcc86ce540cda4135d64c6f
[platform/upstream/gcc48.git]
/
gcc
/
testsuite
/
gfortran.dg
/
interface_19.f90
1
! { dg-do run }
2
! PR33162 INTRINSIC functions as ACTUAL argument
3
! Test case adapted from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>
4
module m
5
implicit none
6
contains
7
subroutine sub(a)
8
optional :: a
9
character(25) :: temp
10
interface
11
function a(x)
12
real(kind=8):: a
13
real(kind=8):: x
14
intent(in) :: x
15
end function a
16
end interface
17
if(present(a)) then
18
write(temp,'(f16.10)')a(4.0d0)
19
if (trim(temp) /= ' -0.6536436209') call abort
20
endif
21
end subroutine sub
22
end module m
23
24
use m
25
implicit none
26
intrinsic dcos
27
call sub()
28
call sub(dcos)
29
end