llvm-project/flang/test/Semantics/resolve16.f90

! RUN: %S/test_errors.sh %s %flang %t
module m
  interface
    subroutine sub0
    end
    !ERROR: A PROCEDURE statement is only allowed in a generic interface block
    procedure :: sub1, sub2
  end interface
contains
  subroutine sub1
  end
  subroutine sub2
  end
end