1! RUN: %python %S/test_errors.py %s %flang_fc1 -Werror -pedantic 2! Confirm a portability warning on use of a procedure binding apart from a call 3module m 4 type t 5 contains 6 procedure :: sub 7 end type 8 contains 9 subroutine sub(x) 10 class(t), intent(in) :: x 11 end subroutine 12end module 13 14program test 15 use m 16 procedure(sub), pointer :: p 17 type(t) x 18 !PORTABILITY: Procedure binding 'sub' used as target of a pointer assignment 19 p => x%sub 20 !PORTABILITY: Procedure binding 'sub' passed as an actual argument 21 call sub2(x%sub) 22 contains 23 subroutine sub2(s) 24 procedure(sub) s 25 end subroutine 26end 27