brintos / llvm-project-archived public Read only

1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Werror2module m3  type a ! not BIND(C)4  end type5 contains6  subroutine sub(x) bind(c)7    !PORTABILITY: The derived type of this interoperable object should be BIND(C) [-Wportability]8    type(a), pointer, intent(in) :: x9  end10end11