25 lines · plain
1! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s2module m3 contains4 !CHECK: expected end of statement5 !CHECK: subroutine s1(var i, j)6 subroutine s1(var i, j)7 end subroutine8 !CHECK: expected end of statement9 !CHECK: subroutine s2[b]10 subroutine s2[b]11 end subroutine12 !CHECK: expected end of statement13 !CHECK: function f1(var i, j)14 function f1(var i, j)15 end function16 !CHECK: expected end of statement17 !CHECK: function f2[b]18 function f2[b]19 end function20 !CHECK: expected end of statement21 !CHECK: function f3(a,*)22 function f3(a,*)23 end function24end25