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