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