14 lines · plain
1!RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s2!CHECK:come-to-a-bad-end.f90:13:4: error: expected '('3!CHECK: in the context: statement function definition4!CHECK: in the context: SUBROUTINE subprogram5!CHECK:error: expected declaration construct6!CHECK:come-to-a-bad-end.f90:13:1: in the context: specification part7!CHECK: in the context: SUBROUTINE subprogram8!CHECK:error: end of file9!CHECK: in the context: SUBROUTINE subprogram10subroutine a11end12subroutine b13gnd14