1! RUN: %python %S/test_errors.py %s %flang_fc1 2module m 3 interface 4 subroutine sub0 5 end 6 !ERROR: A PROCEDURE statement is only allowed in a generic interface block 7 procedure :: sub1, sub2 8 end interface 9contains 10 subroutine sub1 11 end 12 subroutine sub2 13 end 14end 15