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

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

31 lines
1.2 KiB
Fortran
Raw Normal View History

[Flang] Port test_folding.sh to Python To enable Flang testing on Windows, shells scripts have to be ported to Python. The following changes have been made: Ported `test_folding.sh` to Python; Additional changes to the tests themselves to use the new script. LIBPGMATH support for testing not available at this point. Reviewed By: Meinersbur Differential Revision: https://reviews.llvm.org/D108217
2021-09-06 21:54:33 +08:00
! RUN: %python %S/test_folding.py %s %flang_fc1
[flang] Fold TRIM Accept IS_CONTIGUOUS and fold it test folding is_contiguous Original-commit: flang-compiler/f18@c75a0791b14811477572c6a82a961071ed82c01e Reviewed-on: https://github.com/flang-compiler/f18/pull/911
2020-01-08 05:39:42 +08:00
! Test folding of IS_CONTIGUOUS on simply contiguous items (9.5.4)
! When IS_CONTIGUOUS() is constant, it's .TRUE.
module m
real, target :: hosted(2)
contains
function f()
real, pointer, contiguous :: f(:)
f => hosted
end function
[flang] Return true in IsSymplyContiguous for allocatables The current code was relying on the fact that allocatables are deferred shape and that isAssumedShape() should therefore return true for them. This is not true, because the current parsing/semantic analysis always builds a semantics::ArraySpec for `x(:)` that returns true to both isDeferredShape()/isAssumedShape(), whether x is allocatable/pointer or not. It proved tricky to change this behavior, so this is a simple fix for IsSymplyContiguous where it currently matters, but we most likely want to investigate more and fix the isDeferredShape()/isAssumedShape() in a second time. Differential Revision: https://reviews.llvm.org/D114599
2021-11-29 15:27:16 +08:00
subroutine test(arr1, arr2, arr3, mat, alloc)
[flang] Fold TRIM Accept IS_CONTIGUOUS and fold it test folding is_contiguous Original-commit: flang-compiler/f18@c75a0791b14811477572c6a82a961071ed82c01e Reviewed-on: https://github.com/flang-compiler/f18/pull/911
2020-01-08 05:39:42 +08:00
real, intent(in) :: arr1(:), arr2(10), mat(10, 10)
real, intent(in), contiguous :: arr3(:)
[flang] Return true in IsSymplyContiguous for allocatables The current code was relying on the fact that allocatables are deferred shape and that isAssumedShape() should therefore return true for them. This is not true, because the current parsing/semantic analysis always builds a semantics::ArraySpec for `x(:)` that returns true to both isDeferredShape()/isAssumedShape(), whether x is allocatable/pointer or not. It proved tricky to change this behavior, so this is a simple fix for IsSymplyContiguous where it currently matters, but we most likely want to investigate more and fix the isDeferredShape()/isAssumedShape() in a second time. Differential Revision: https://reviews.llvm.org/D114599
2021-11-29 15:27:16 +08:00
real, allocatable :: alloc(:)
[flang] Fold TRIM Accept IS_CONTIGUOUS and fold it test folding is_contiguous Original-commit: flang-compiler/f18@c75a0791b14811477572c6a82a961071ed82c01e Reviewed-on: https://github.com/flang-compiler/f18/pull/911
2020-01-08 05:39:42 +08:00
real :: scalar
[flang] Fix problems with constant arrays with lower bounds that are not 1 There were two problems with constant arrays whose lower bound is not 1. First, when folding the arrays, we were creating the folded array to have lower bounds of 1 but, we were not re-adjusting their lower bounds to the declared values. Second, we were not calculating the extents correctly. Both of these problems led to bogus error messages. I fixed the first problem by adjusting the lower bounds in NonPointerInitializationExpr() in Evaluate/check-expression.cpp. I wrote the class ArrayConstantBoundChanger, which is similar to the existing class ScalarConstantExpander. In the process of implementing and testing it, I found a bug that I fixed in ScalarConstantExpander which caused it to infinitely recurse on parenthesized expressions. I also removed the unrelated class ScalarExpansionVisitor, which was not used. I fixed the second problem by changing the formula that calculates upper bounds in in the function ComputeUpperBound() in Evaluate/shape.cpp. I added tests that trigger the bogus error messages mentioned above along with a constant folding tests that uses array operands with shapes that conform but have different bounds. In the process of adding tests, I discovered that tests in Evaluate/folding09.f90 and folding16.f90 were written incorrectly, and I fixed them. This also revealed a bug in contant folding of the intrinsic "lbounds" which I plan to fix in a later change. Differential Revision: https://reviews.llvm.org/D95449
2021-01-27 00:20:57 +08:00
logical, parameter :: test_isc01 = is_contiguous(0)
logical, parameter :: test_isc02 = is_contiguous(scalar)
logical, parameter :: test_isc03 = is_contiguous(scalar + scalar)
logical, parameter :: test_isc04 = is_contiguous([0, 1, 2])
logical, parameter :: test_isc05 = is_contiguous(arr1 + 1.0)
logical, parameter :: test_isc06 = is_contiguous(arr2)
logical, parameter :: test_isc07 = is_contiguous(mat)
logical, parameter :: test_isc08 = is_contiguous(mat(1:10,1))
logical, parameter :: test_isc09 = is_contiguous(arr2(1:10:1))
logical, parameter :: test_isc10 = is_contiguous(arr3)
logical, parameter :: test_isc11 = is_contiguous(f())
[flang] Return true in IsSymplyContiguous for allocatables The current code was relying on the fact that allocatables are deferred shape and that isAssumedShape() should therefore return true for them. This is not true, because the current parsing/semantic analysis always builds a semantics::ArraySpec for `x(:)` that returns true to both isDeferredShape()/isAssumedShape(), whether x is allocatable/pointer or not. It proved tricky to change this behavior, so this is a simple fix for IsSymplyContiguous where it currently matters, but we most likely want to investigate more and fix the isDeferredShape()/isAssumedShape() in a second time. Differential Revision: https://reviews.llvm.org/D114599
2021-11-29 15:27:16 +08:00
logical, parameter :: test_isc12 = is_contiguous(alloc)
[flang] Fold TRIM Accept IS_CONTIGUOUS and fold it test folding is_contiguous Original-commit: flang-compiler/f18@c75a0791b14811477572c6a82a961071ed82c01e Reviewed-on: https://github.com/flang-compiler/f18/pull/911
2020-01-08 05:39:42 +08:00
end subroutine
end module