63 lines · plain
1! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s2program p3 contains4! CHECK: error: expected 'END'5! CHECK: in the context: END PROGRAM statement6 continue7end8 9subroutine s10 contains11! CHECK: error: expected 'END'12! CHECK: in the context: SUBROUTINE subprogram13 continue14end15 16function f()17 contains18! CHECK: error: expected 'END'19! CHECK: in the context: FUNCTION subprogram20 continue21end22 23module m24 interface25 module subroutine ms26 end27 end interface28 contains29! CHECK: error: expected 'END'30! CHECK: in the context: END MODULE statement31 continue32end33 34module m235 contains36 subroutine m2s37 contains38! CHECK: error: expected 'END'39! CHECK: in the context: SUBROUTINE subprogram40 continue41 end42end43 44submodule(m) s145 contains46! CHECK: error: expected 'END'47! CHECK: in the context: END SUBMODULE statement48 continue49end50 51submodule(m) s252 contains53 module procedure ms54 contains55! CHECK: error: expected 'END'56! CHECK: in the context: END PROCEDURE statement57 continue58 end59end60 61! Ensure no error cascade62! CHECK-NOT: error:63