15 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12module m3 interface4 subroutine sub05 end6 !ERROR: A PROCEDURE statement is only allowed in a generic interface block7 procedure :: sub1, sub28 end interface9contains10 subroutine sub111 end12 subroutine sub213 end14end15