maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity
llvm-project/flang/test/Semantics/forall01.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

107 lines
2.5 KiB
Fortran
Raw Normal View History

[flang][NFC] Simplify semantics test scripts There were several different ways of handling the option to f18 to find predefined modules: - test_errors.sh was created by cmake substituting FLANG_INTRINSIC_MODULES_DIR into test_errors.sh.in - some tests used the flang script which has the option built it - some tests used %f18_with_includes which was replaced by the path to f18 plus the -I option - some included -I../../include/flang in their run command To make this more consistent, change %f18 to include the -intrinsic-module-directory option and use it everywhere, including to replace %flang and %f18_with_includes. This requires changing all of the invocations of the test scripts to put %f18 at the end so that it can expand to more than one argument. This eliminates the need to generate test_errors.sh which means we don't need flang/test/Semantics/CMakeLists.txt or the %B substitution. That makes the test_errors.sh command like the others, replacing %B/test/Semantics/test_errors.sh with %S/test_errors.sh. Also remove the OPTIONS: functionality as custom options can be included in the RUN: command. And remove -I/../../include/flang as that is now always included. Differential Revision: https://reviews.llvm.org/D79634
2020-05-12 02:38:53 +08:00
! RUN: %S/test_errors.sh %s %t %f18
[flang] Add analyzed form of pointer assignment Add `typedAssignment` to `PointerAssignmentStmt` parse tree node and extend `evaluate::Assignment` to include pointer assignment, including analyzed bounds. Analyze pointer assignments and fill those in. Emit them in unparsed output and parse tree dump when present. Change assignment checking to use analyzed expressions and assignments rather than calling AnalyzeExpr. Check bounds in pointer assignments for impure function calls in FORALL context. Add `Fold` convenience function to `ExpressionAnalyzer`. Original-commit: flang-compiler/f18@140c983423d3f49fad66bc67317af3684e96ba1b Reviewed-on: https://github.com/flang-compiler/f18/pull/904
2020-01-04 02:38:51 +08:00
subroutine forall1
[flang] Strengthen FORALL scoping check Original-commit: flang-compiler/f18@e57eb413145080cbd1d055d2a359493f7bcfc24f Reviewed-on: https://github.com/flang-compiler/f18/pull/243 Tree-same-pre-rewrite: false
2018-12-12 06:03:55 +08:00
real :: a(9)
[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@99376d77a07aa04173bd20dcc45d08b76cae4a73 Reviewed-on: https://github.com/flang-compiler/f18/pull/904 Tree-same-pre-rewrite: false
2019-12-24 02:40:20 +08:00
!ERROR: 'i' is already declared in this scoping unit
[flang] Add FORALL checking to DoChecker FORALL statements and constructs require a lot of the same checking as DO CONCURRENT, so do the checks in DoChecker so that code can be shared where possible. This requires some reorganization there. Remove code from AssignmentChecker that did some of these checks. Change names that contain `DoVar` or `DoVariable` to `IndexVar` to reflect the fact that they may be DO or FORALL index variables. Distinguish between the two when necessary with enum `IndexVarKind`. Change some messages that referred to "concurrent-header" or "concurrent-control" to specifically say "DO CONCURRENT" or "FORALL". Original-commit: flang-compiler/f18@84752c492e910573e2f0ede1ed3c0417aac363b9 Reviewed-on: https://github.com/flang-compiler/f18/pull/989 Tree-same-pre-rewrite: false
2020-02-19 09:14:24 +08:00
!ERROR: Cannot redefine FORALL variable 'i'
[flang] Strengthen FORALL scoping check Original-commit: flang-compiler/f18@e57eb413145080cbd1d055d2a359493f7bcfc24f Reviewed-on: https://github.com/flang-compiler/f18/pull/243 Tree-same-pre-rewrite: false
2018-12-12 06:03:55 +08:00
forall (i=1:8, i=1:9) a(i) = i
[flang] Add FORALL checking to DoChecker FORALL statements and constructs require a lot of the same checking as DO CONCURRENT, so do the checks in DoChecker so that code can be shared where possible. This requires some reorganization there. Remove code from AssignmentChecker that did some of these checks. Change names that contain `DoVar` or `DoVariable` to `IndexVar` to reflect the fact that they may be DO or FORALL index variables. Distinguish between the two when necessary with enum `IndexVarKind`. Change some messages that referred to "concurrent-header" or "concurrent-control" to specifically say "DO CONCURRENT" or "FORALL". Original-commit: flang-compiler/f18@84752c492e910573e2f0ede1ed3c0417aac363b9 Reviewed-on: https://github.com/flang-compiler/f18/pull/989 Tree-same-pre-rewrite: false
2020-02-19 09:14:24 +08:00
!ERROR: 'i' is already declared in this scoping unit
!ERROR: Cannot redefine FORALL variable 'i'
forall (i=1:8, i=1:9)
a(i) = i
end forall
[flang] Strengthen FORALL scoping check Original-commit: flang-compiler/f18@e57eb413145080cbd1d055d2a359493f7bcfc24f Reviewed-on: https://github.com/flang-compiler/f18/pull/243 Tree-same-pre-rewrite: false
2018-12-12 06:03:55 +08:00
forall (j=1:8)
[flang] Add analyzed form of pointer assignment Add `typedAssignment` to `PointerAssignmentStmt` parse tree node and extend `evaluate::Assignment` to include pointer assignment, including analyzed bounds. Analyze pointer assignments and fill those in. Emit them in unparsed output and parse tree dump when present. Change assignment checking to use analyzed expressions and assignments rather than calling AnalyzeExpr. Check bounds in pointer assignments for impure function calls in FORALL context. Add `Fold` convenience function to `ExpressionAnalyzer`. Original-commit: flang-compiler/f18@140c983423d3f49fad66bc67317af3684e96ba1b Reviewed-on: https://github.com/flang-compiler/f18/pull/904
2020-01-04 02:38:51 +08:00
!ERROR: 'j' is already declared in this scoping unit
[flang] Add FORALL checking to DoChecker FORALL statements and constructs require a lot of the same checking as DO CONCURRENT, so do the checks in DoChecker so that code can be shared where possible. This requires some reorganization there. Remove code from AssignmentChecker that did some of these checks. Change names that contain `DoVar` or `DoVariable` to `IndexVar` to reflect the fact that they may be DO or FORALL index variables. Distinguish between the two when necessary with enum `IndexVarKind`. Change some messages that referred to "concurrent-header" or "concurrent-control" to specifically say "DO CONCURRENT" or "FORALL". Original-commit: flang-compiler/f18@84752c492e910573e2f0ede1ed3c0417aac363b9 Reviewed-on: https://github.com/flang-compiler/f18/pull/989 Tree-same-pre-rewrite: false
2020-02-19 09:14:24 +08:00
!ERROR: Cannot redefine FORALL variable 'j'
[flang] Strengthen FORALL scoping check Original-commit: flang-compiler/f18@e57eb413145080cbd1d055d2a359493f7bcfc24f Reviewed-on: https://github.com/flang-compiler/f18/pull/243 Tree-same-pre-rewrite: false
2018-12-12 06:03:55 +08:00
forall (j=1:9)
end forall
end forall
[flang] Add analyzed form of pointer assignment Add `typedAssignment` to `PointerAssignmentStmt` parse tree node and extend `evaluate::Assignment` to include pointer assignment, including analyzed bounds. Analyze pointer assignments and fill those in. Emit them in unparsed output and parse tree dump when present. Change assignment checking to use analyzed expressions and assignments rather than calling AnalyzeExpr. Check bounds in pointer assignments for impure function calls in FORALL context. Add `Fold` convenience function to `ExpressionAnalyzer`. Original-commit: flang-compiler/f18@140c983423d3f49fad66bc67317af3684e96ba1b Reviewed-on: https://github.com/flang-compiler/f18/pull/904
2020-01-04 02:38:51 +08:00
end
subroutine forall2
integer, pointer :: a(:)
integer, target :: b(10,10)
forall (i=1:10)
!ERROR: Impure procedure 'f_impure' may not be referenced in a FORALL
a(f_impure(i):) => b(i,:)
end forall
[flang] Add FORALL checking to DoChecker FORALL statements and constructs require a lot of the same checking as DO CONCURRENT, so do the checks in DoChecker so that code can be shared where possible. This requires some reorganization there. Remove code from AssignmentChecker that did some of these checks. Change names that contain `DoVar` or `DoVariable` to `IndexVar` to reflect the fact that they may be DO or FORALL index variables. Distinguish between the two when necessary with enum `IndexVarKind`. Change some messages that referred to "concurrent-header" or "concurrent-control" to specifically say "DO CONCURRENT" or "FORALL". Original-commit: flang-compiler/f18@84752c492e910573e2f0ede1ed3c0417aac363b9 Reviewed-on: https://github.com/flang-compiler/f18/pull/989 Tree-same-pre-rewrite: false
2020-02-19 09:14:24 +08:00
!ERROR: FORALL mask expression may not reference impure procedure 'f_impure'
forall (j=1:10, f_impure(1)>2)
end forall
[flang] Add analyzed form of pointer assignment Add `typedAssignment` to `PointerAssignmentStmt` parse tree node and extend `evaluate::Assignment` to include pointer assignment, including analyzed bounds. Analyze pointer assignments and fill those in. Emit them in unparsed output and parse tree dump when present. Change assignment checking to use analyzed expressions and assignments rather than calling AnalyzeExpr. Check bounds in pointer assignments for impure function calls in FORALL context. Add `Fold` convenience function to `ExpressionAnalyzer`. Original-commit: flang-compiler/f18@140c983423d3f49fad66bc67317af3684e96ba1b Reviewed-on: https://github.com/flang-compiler/f18/pull/904
2020-01-04 02:38:51 +08:00
contains
impure integer function f_impure(i)
f_impure = i
end
end
[flang] Add FORALL checking to DoChecker FORALL statements and constructs require a lot of the same checking as DO CONCURRENT, so do the checks in DoChecker so that code can be shared where possible. This requires some reorganization there. Remove code from AssignmentChecker that did some of these checks. Change names that contain `DoVar` or `DoVariable` to `IndexVar` to reflect the fact that they may be DO or FORALL index variables. Distinguish between the two when necessary with enum `IndexVarKind`. Change some messages that referred to "concurrent-header" or "concurrent-control" to specifically say "DO CONCURRENT" or "FORALL". Original-commit: flang-compiler/f18@84752c492e910573e2f0ede1ed3c0417aac363b9 Reviewed-on: https://github.com/flang-compiler/f18/pull/989 Tree-same-pre-rewrite: false
2020-02-19 09:14:24 +08:00
subroutine forall3
real :: x
forall(i=1:10)
!ERROR: Cannot redefine FORALL variable 'i'
i = 1
end forall
forall(i=1:10)
forall(j=1:10)
!ERROR: Cannot redefine FORALL variable 'i'
i = 1
end forall
end forall
!ERROR: Cannot redefine FORALL variable 'i'
forall(i=1:10) i = 1
end
subroutine forall4
integer, parameter :: zero = 0
integer :: a(10)
!ERROR: FORALL limit expression may not reference index variable 'i'
forall(i=1:i)
a(i) = i
end forall
!ERROR: FORALL step expression may not reference index variable 'i'
forall(i=1:10:i)
a(i) = i
end forall
!ERROR: FORALL step expression may not be zero
forall(i=1:10:zero)
a(i) = i
end forall
!ERROR: FORALL limit expression may not reference index variable 'i'
forall(i=1:i) a(i) = i
!ERROR: FORALL step expression may not reference index variable 'i'
forall(i=1:10:i) a(i) = i
!ERROR: FORALL step expression may not be zero
forall(i=1:10:zero) a(i) = i
end
[flang] Add more checks on WHERE and FORALL Check that masks and LHS of assignments in WHERE statements and constructs have consistent shapes. They must all have the same rank and any extents that are compile-time constants must match. Emit a warning for assignments in FORALL statements and constructs where the LHS does not reference each of the index variables. Original-commit: flang-compiler/f18@8b04dbebcf5621cfd571a8c45878cebcd1a1bfb0 Reviewed-on: https://github.com/flang-compiler/f18/pull/1009
2020-02-21 06:54:46 +08:00
! Note: this gets warnings but not errors
subroutine forall5
real, target :: x(10), y(10)
forall(i=1:10)
x(i) = y(i)
end forall
forall(i=1:10)
x = y ! warning: i not used on LHS
forall(j=1:10)
x(i) = y(i) ! warning: j not used on LHS
x(j) = y(j) ! warning: i not used on LHS
endforall
endforall
do concurrent(i=1:10)
x = y
forall(i=1:10) x = y
end do
end
subroutine forall6
type t
real, pointer :: p
end type
type(t) :: a(10)
real, target :: b(10)
forall(i=1:10)
a(i)%p => b(i)
a(1)%p => b(i) ! warning: i not used on LHS
end forall
end