[flang] Move forall01 to ERROR_TESTS

That seems to be what was intended and it provides for better checking
of errors.

Original-commit: flang-compiler/f18@99376d77a0
Reviewed-on: https://github.com/flang-compiler/f18/pull/904
Tree-same-pre-rewrite: false
This commit is contained in:
Tim Keith 2019-12-23 10:40:20 -08:00
parent 833bce4e94
commit 83d574bf07
2 changed files with 4 additions and 11 deletions

View File

@ -188,6 +188,7 @@ set(ERROR_TESTS
call12.f90
call13.f90
call14.f90
forall01.f90
misc-declarations.f90
separate-module-procs.f90
bindings01.f90
@ -278,10 +279,6 @@ set(CANONDO_TESTS
canondo*.[Ff]90
)
set(FORALL_TESTS
forall*.[Ff]90
)
set(GETSYMBOLS_TESTS
getsymbols01.f90
getsymbols02-*.f90
@ -316,7 +313,7 @@ foreach(test ${MODFILE_TESTS})
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()

View File

@ -1,13 +1,9 @@
! 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