1! { dg-do compile } 2 3 module m1 4 contains 5 recursive function mfact (x) result (res) 6 integer, intent(in) :: x 7 integer :: res 8 integer i 9 i = 0 10 !$acc routine ! { dg-error "Unexpected \\\!\\\$ACC ROUTINE" } 11 if (x < 1) then 12 res = 1 13 else 14 res = x * mfact (x - 1) 15 end if 16 end function mfact 17 end module m1 18