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