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