1 2 3 4 5 6 7 8
! { dg-do compile } program p call s(1) x = abs(s) ! { dg-error "must have a numeric type" } end subroutine s(n) print *, n end