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