flang/test/Parser/recovery04.f90

   1 ! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
   2 module m
   3  contains
   4   !CHECK: expected end of statement
   5   !CHECK: subroutine s1(var i, j)
   6   subroutine s1(var i, j)
   7   end subroutine
   8   !CHECK: expected end of statement
   9   !CHECK: subroutine s2[b]
  10   subroutine s2[b]
  11   end subroutine
  12   !CHECK: expected end of statement
  13   !CHECK: function f1(var i, j)
  14   function f1(var i, j)
  15   end function
  16   !CHECK: expected end of statement
  17   !CHECK: function f2[b]
  18   function f2[b]
  19   end function
  20   !CHECK: expected end of statement
  21   !CHECK: function f3(a,*)
  22   function f3(a,*)
  23   end function
  24 end