gcc/testsuite/gfortran.dg/whole_file_8.f90

   1 ! { dg-do compile }
   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.
   5 !
   6 ! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
   7 !
   8 subroutine test_d(fn, val, res)
   9   double precision fn
  10   double precision val, res
  11
  12   print *, fn(val), res
  13 end subroutine
  14
  15 subroutine test_c(fn, val, res)
  16   complex fn
  17   complex val, res
  18
  19   print *, fn(val), res
  20 end subroutine
  21
  22 program specifics
  23
  24   intrinsic dcos
  25   intrinsic dcosh
  26   intrinsic dexp
  27
  28   intrinsic conjg
  29
  30   call test_d (dcos, 1d0, dcos(1d0))
  31   call test_d (dcosh, 1d0, dcosh(1d0))
  32   call test_d (dexp, 1d0, dexp(1d0))
  33
  34   call test_c (conjg, (1.0,1.0) , conjg((1.0,1.0)))
  35
  36 end program