1*b3026babSPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Werror 2*b3026babSPeter Klauslermodule m 3*b3026babSPeter Klausler type a ! not BIND(C) 4*b3026babSPeter Klausler end type 5*b3026babSPeter Klausler contains 6*b3026babSPeter Klausler subroutine sub(x) bind(c) 7*b3026babSPeter Klausler !PORTABILITY: The derived type of this interoperable object should be BIND(C) 8*b3026babSPeter Klausler type(a), pointer, intent(in) :: x 9*b3026babSPeter Klausler end 10*b3026babSPeter Klauslerend 11