blob: 674abaccc7c7d08c400829016f51f03bab41c7f2 [file] [log] [blame]
! RUN: not %flang_fc1 -fsyntax-only %s 2>&1 | FileCheck %s
program main
call foo(i, &
j, &
k, &
1$)
end
!CHECK: error: expected ')'
!CHECK: in the context: CALL statement