1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
! { dg-do compile }
! { dg-options "-fwhole-file" }
! Test the fix for the third problem in PR40011, where false
! type/rank mismatches were found in the main program calls.
!
! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
!
subroutine test_d(fn, val, res)
double precision fn
double precision val, res
print *, fn(val), res
end subroutine
subroutine test_c(fn, val, res)
complex fn
complex val, res
print *, fn(val), res
end subroutine
program specifics
intrinsic dcos
intrinsic dcosh
intrinsic dexp
intrinsic conjg
call test_d (dcos, 1d0, dcos(1d0))
call test_d (dcosh, 1d0, dcosh(1d0))
call test_d (dexp, 1d0, dexp(1d0))
call test_c (conjg, (1.0,1.0) , conjg((1.0,1.0)))
end program
|
