xref: /llvm-project/flang/test/Semantics/definable03.f90 (revision 2725499221c93247cd91ea734ee6b4e022727a63)
1! RUN: %python %S/test_errors.py %s %flang_fc1
2subroutine sub(j)
3  integer, intent(in) :: j
4  !ERROR: 'j' may not be used as a DO variable
5  !BECAUSE: 'j' is an INTENT(IN) dummy argument
6  do j = 1, 10
7  end do
8end
9