2 ! { dg-options "-fwhole-file" }
3 ! Test the fix for the third problem in PR40011, where false
4 ! type/rank mismatches were found in the main program calls.
6 ! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
8 subroutine test_d(fn
, val
, res
)
10 double precision val
, res
15 subroutine test_c(fn
, val
, res
)
30 call test_d (dcos
, 1d0, dcos(1d0))
31 call test_d (dcosh
, 1d0, dcosh(1d0))
32 call test_d (dexp
, 1d0, dexp(1d0))
34 call test_c (conjg
, (1.0,1.0) , conjg((1.0,1.0)))