1! { dg-do run }
2! PR33162 INTRINSIC functions as ACTUAL argument
3! Test case adapted from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>
4elemental real function t(x)
5  real, intent(in) ::x
6  t = x
7end function
8
9program p
10  implicit none
11  intrinsic sin
12  procedure(sin) :: t
13  if (t(1.0) /= 1.0) STOP 1
14end program
15