That seems to be what was intended and it provides for better checking
of errors.
Original-commit: flang-compiler/f18@
99376d77a07aa04173bd20dcc45d08b76cae4a73
Reviewed-on: https://github.com/flang-compiler/f18/pull/904
Tree-same-pre-rewrite: false
call12.f90
call13.f90
call14.f90
+ forall01.f90
misc-declarations.f90
separate-module-procs.f90
bindings01.f90
canondo*.[Ff]90
)
-set(FORALL_TESTS
- forall*.[Ff]90
-)
-
set(GETSYMBOLS_TESTS
getsymbols01.f90
getsymbols02-*.f90
endforeach()
foreach(test ${LABEL_TESTS} ${CANONDO_TESTS} ${DOCONCURRENT_TESTS}
- ${FORALL_TESTS} ${GETSYMBOLS_TESTS} ${GETDEFINITION_TESTS})
+ ${GETSYMBOLS_TESTS} ${GETDEFINITION_TESTS})
add_test(NAME ${test}
COMMAND ${CMAKE_CURRENT_SOURCE_DIR}/test_any.sh ${test} ${F18})
endforeach()
-! RUN: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
-! CHECK: Previous declaration of 'i'
-! CHECK: Previous declaration of 'j'
-
subroutine forall
real :: a(9)
-! ERROR: 'i' is already declared in this scoping unit
+ !ERROR: 'i' is already declared in this scoping unit
forall (i=1:8, i=1:9) a(i) = i
forall (j=1:8)
-! ERROR: 'j' is already declared in this scoping unit
+ !ERROR: 'j' is already declared in this scoping unit
forall (j=1:9)
end forall
end forall