/llvm-project/flang/test/Semantics/ |
H A D | select-rank.f90 | 3 !Tests for SELECT RANK Construct(R1148) 23 SELECT RANK(x) 24 RANK (0) 25 print *, "PRINT RANK 0" 26 RANK (1) 27 print *, "PRINT RANK 1" 34 boo: SELECT RANK(x) 35 RANK (1+0) 36 print *, "PRINT RANK 1" 37 j = INT(0, KIND=MERGE(KIND(0), -1, RANK(x) == (1+0))) [all …]
|
H A D | call38.f90 | 58 !ERROR: Rank of dummy argument is 0, but actual argument has rank 1 132 !ERROR: Rank of dummy argument is 1, but actual argument has rank 2 134 !ERROR: Rank of dummy argument is 1, but actual argument has rank 2 136 !ERROR: Rank of dummy argument is 1, but actual argument has rank 2 143 !ERROR: Rank of dummy argument is 2, but actual argument has rank [all...] |
H A D | select-rank03.f90 | 9 select rank(a) 10 rank (0) 16 …!ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches scalar REAL(4) and rank 1 array of REAL… 18 …!ERROR: If SOURCE appears, the related expression must be scalar or have the same rank as each all… 21 rank (1) 26 …!ERROR: Arrays in ALLOCATE must have a shape specification or an expression of the same rank must … 28 …!ERROR: Arrays in ALLOCATE must have a shape specification or an expression of the same rank must … 32 rank (2) 36 …!ERROR: No intrinsic or user-defined ASSIGNMENT(=) matches rank 2 array of REAL(4) and rank 1 arra… 38 …!ERROR: Arrays in ALLOCATE must have a shape specification or an expression of the same rank must … [all …]
|
H A D | expr-errors04.f90 | 2 ! Regression test for more than one part-ref with nonzero rank 45 !ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed 47 !ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed 49 !ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed 51 !ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed 53 !ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed 55 !ERROR: Reference to whole rank-1 component 'x2' of rank-2 array of derived type is not allowed 57 !ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed 59 …!ERROR: Subscripts of component 'x2' of rank-2 derived type array have rank 1 but must all be scal… 61 !ERROR: Reference to whole rank-2 component 't1' of rank-1 array of derived type is not allowed [all …]
|
H A D | maxrank.f90 | 2 ! Enforce limits on rank + corank 4 !ERROR: 'x' has rank 16, which is greater than the maximum supported rank 15 6 !ERROR: 'y' has rank 16, which is greater than the maximum supported rank 15 8 !ERROR: 'z' has rank 16, which is greater than the maximum supported rank 15 10 !ERROR: 'w' has rank 16, which is greater than the maximum supported rank 15 12 !ERROR: 'a' has rank 15 and corank 1, whose sum is greater than the maximum supported rank 15 14 !ERROR: 'b' has rank 14 and corank 2, whose sum is greater than the maximum supported rank 15 16 !ERROR: 'c' has rank 14 and corank 2, whose sum is greater than the maximum supported rank 15 21 !ERROR: 'foo' has rank 16, which is greater than the maximum supported rank 15 28 !ERROR: 'res' has rank 16, which is greater than the maximum supported rank 15
|
H A D | allocate10.f90 | 10 ! statement and have the same rank as the allocate-object. 48 ! There are NO requirements that mold expression rank match the 55 …!ERROR: Arrays in ALLOCATE must have a shape specification or an expression of the same rank must … 57 …!ERROR: Arrays in ALLOCATE must have a shape specification or an expression of the same rank must … 59 …!ERROR: Arrays in ALLOCATE must have a shape specification or an expression of the same rank must … 62 …!ERROR: Arrays in ALLOCATE must have a shape specification or an expression of the same rank must … 64 …!ERROR: Arrays in ALLOCATE must have a shape specification or an expression of the same rank must … 66 …!ERROR: Arrays in ALLOCATE must have a shape specification or an expression of the same rank must … 69 …!ERROR: Arrays in ALLOCATE must have a shape specification or an expression of the same rank must … 71 …!ERROR: Arrays in ALLOCATE must have a shape specification or an expression of the same rank must … [all …]
|
H A D | misc-intrinsics.f90 | 19 !ERROR: 'array=' argument has unacceptable rank 0 21 !ERROR: 'array=' argument has unacceptable rank 0 23 !ERROR: 'array=' argument has unacceptable rank 0 29 !ERROR: DIM=666 dimension is too large for any array (maximum rank 15) 33 !ERROR: DIM=2 dimension is out of range for rank-2 assumed-size array 37 !ERROR: DIM=666 dimension is too large for any array (maximum rank 15) 39 select rank(assumedRank) 40 rank(1) 41 !ERROR: DIM=2 dimension is out of range for rank-1 array 43 !ERROR: DIM=2 dimension is out of range for rank-1 array [all …]
|
H A D | select-rank02.f90 | 6 !Shape analysis related tests for SELECT RANK Construct(R1148) 17 select rank (arr) 18 rank(2) 28 select rank (arr) 29 rank(2) 40 select rank (arr) 41 rank(2) 42 FORALL (i=1:n,j=1:m,RANK(arr).EQ.SIZE(SHAPE(brr))) & 52 select rank (arr) 53 rank(2) [all …]
|
H A D | call39.f90 | 26 !ERROR: Rank of dummy argument is 0, but actual argument has rank 1 27 !ERROR: Rank of pointer is 0, but function result has rank 1 29 !ERROR: Rank of dummy argument is 1, but actual argument has rank 0 30 !ERROR: Rank of pointer is 1, but function result has rank 0 35 …!ERROR: NULL() without MOLD= must not be associated with an assumed-rank dummy argument that is AL… 38 …!ERROR: NULL() without MOLD= must not be associated with an assumed-rank dummy argument that is AL… 43 …!ERROR: NULL() without MOLD= must not be associated with an assumed-rank dummy argument that is AL…
|
H A D | init01.f90 | 32 !ERROR: Pointer has rank 0 but target has rank 1 46 !ERROR: Pointer has rank 0 but target has rank 1 61 !ERROR: Pointer has rank 0 but target has rank 1 75 !ERROR: Pointer has rank 0 but target has rank 1 88 !ERROR: Implied-shape parameter 'x2' has rank 2 but its initializer has rank 1 94 !ERROR: Rank of initialized object is 2, but initialization expression has rank 1 97 !ERROR: Rank of initialized object is 0, but initialization expression has rank 1 134 !ERROR: Pointer has rank 0 but target has rank 1 135 !ERROR: Pointer has rank 0 but target has rank 1 137 !ERROR: Pointer has rank 1 but target has rank 0 [all …]
|
/llvm-project/flang/lib/Evaluate/ |
H A D | intrinsics.cpp | 44 // categories, a kind pattern, a rank pattern, and information about 45 // optionality and defaults. The kind and rank patterns are represented 49 // only if the dummy argument is Rank::reduceOperation, 57 // rank pattern. 59 // intrinsic functions that accept AnyType + Rank::anyOrAssumedRank, 60 // AnyType + Rank::arrayOrAssumedRank, or AnyType + Kind::addressable. 219 // The default rank pattern for dummy arguments and function results is 221 ENUM_CLASS(Rank, 227 array, // not scalar, rank is known and greater than zero 228 coarray, // rank i 243 Rank rank{Rank::elemental}; global() member 288 Rank rank{Rank::elemental}; global() member 2013 int rank{arg->Rank()}; Match() local [all...] |
H A D | shape.cpp | 42 return shape.Rank() == 0 || in IsExplicitShape() 51 CHECK(arrayConstant.Rank() == 1); in ConstantShape() 72 if (expr && expr->Rank() == 0) { in AsShapeResult() 84 Shape GetShapeHelper::CreateShape(int rank, NamedEntity &base) const { in CreateShape() 86 for (int dimension{0}; dimension < rank; ++dimension) { 258 int rank{object->shape().Rank()}; in GetLowerBound() 259 if (dimension_ < rank) { in GetLowerBound() 263 lbound && lbound->Rank() == 0) { in GetLowerBound() 267 if (dimension_ == rank in GetLowerBound() 79 CreateShape(int rank,NamedEntity & base) const CreateShape() argument 253 int rank{object->shape().Rank()}; GetLowerBound() local 411 int rank{base.Rank()}; GetRawLowerBounds() local 421 int rank{base.Rank()}; GetRawLowerBounds() local 430 int rank{base.Rank()}; GetLBOUNDs() local 440 int rank{base.Rank()}; GetLBOUNDs() local 608 int rank{details->shape().Rank()}; GetRawUpperBound() local 662 int rank{details->shape().Rank()}; GetUBOUND() local 710 int rank{base.Rank()}; GetUBOUNDs() local 758 int rank{static_cast<int>(exprShape->size())}; operator ()() local 799 int rank{symbol.Rank()}; operator ()() local 922 auto rank{static_cast<int>(arrayShape->size())}; operator ()() local 1151 std::size_t rank(indices.size()); IncrementSubscripts() local [all...] |
/llvm-project/flang/docs/ |
H A D | AssumedRank.md | 8 # Assumed-Rank Objects 10 An assumed-rank dummy data object is a dummy argument that takes its rank from 12 SELECT RANK in the `RANK DEFAULT` block. Its rank is not known at compile 13 time. The rank can be anything from 0 (scalar) to the maximum allowed rank in 17 This document summarizes the contexts where assumed-rank objects can appear, 33 - 8.5.8.7 Assumed-rank entity 37 - 11.1.10 SELECT RANK 47 Assumed-rank can: 52 - appear as an actual argument of an assumed-rank dummy (C838) 53 - appear as the selector of SELECT RANK (C838) [all …]
|
/llvm-project/clang/test/Analysis/ |
H A D | mpichecker.cpp | 6 int rank = 0; in matchedWait1() local 8 MPI_Comm_rank(MPI_COMM_WORLD, &rank); in matchedWait1() 9 if (rank >= 0) { in matchedWait1() 11 MPI_Isend(&buf, 1, MPI_DOUBLE, rank + 1, 0, MPI_COMM_WORLD, &sendReq1); in matchedWait1() 12 MPI_Irecv(&buf, 1, MPI_DOUBLE, rank - 1, 0, MPI_COMM_WORLD, &recvReq1); in matchedWait1() 20 int rank = 0; in matchedWait2() local 22 MPI_Comm_rank(MPI_COMM_WORLD, &rank); in matchedWait2() 23 if (rank >= 0) { in matchedWait2() 25 MPI_Isend(&buf, 1, MPI_DOUBLE, rank + 1, 0, MPI_COMM_WORLD, &sendReq1); in matchedWait2() 26 MPI_Irecv(&buf, 1, MPI_DOUBLE, rank - 1, 0, MPI_COMM_WORLD, &recvReq1); in matchedWait2() [all …]
|
/llvm-project/mlir/test/Dialect/MPI/ |
H A D | ops.mlir | 9 // CHECK-NEXT: %retval, %rank = mpi.comm_rank : !mpi.retval, i32 10 %retval, %rank = mpi.comm_rank : !mpi.retval, i32 12 // CHECK-NEXT: mpi.send(%arg0, %rank, %rank) : memref<100xf32>, i32, i32 13 mpi.send(%ref, %rank, %rank) : memref<100xf32>, i32, i32 15 // CHECK-NEXT: %1 = mpi.send(%arg0, %rank, %rank) : memref<100xf32>, i32, i32 -> !mpi.retval 16 %err2 = mpi.send(%ref, %rank, %rank) : memref<100xf32>, i32, i32 -> !mpi.retval 18 // CHECK-NEXT: mpi.recv(%arg0, %rank, %rank) : memref<100xf32>, i32, i32 19 mpi.recv(%ref, %rank, %rank) : memref<100xf32>, i32, i32 21 // CHECK-NEXT: %2 = mpi.recv(%arg0, %rank, %rank) : memref<100xf32>, i32, i32 -> !mpi.retval 22 %err3 = mpi.recv(%ref, %rank, %rank) : memref<100xf32>, i32, i32 -> !mpi.retval
|
/llvm-project/flang/unittests/Evaluate/ |
H A D | ISO-Fortran-binding.cpp | 11 template <int rank> class Test_CFI_CDESC_T { 23 if (rank > 0) { in Check() 25 } else { // C++ implementation over-allocates for rank=0 by 24bytes. in Check() 35 static constexpr int rank_{rank}; 36 CFI_CDESC_T(rank) dvStorage_; 39 template <int rank> static void TestCdescMacroForAllRanksSmallerThan() { in TestCdescMacroForAllRanksSmallerThan() 40 static_assert(rank > 0, "rank<0!"); in TestCdescMacroForAllRanksSmallerThan() 41 Test_CFI_CDESC_T<rank> obj; in TestCdescMacroForAllRanksSmallerThan() 43 TestCdescMacroForAllRanksSmallerThan<rank - 1>(); in TestCdescMacroForAllRanksSmallerThan() 52 static void AddNoiseToCdesc(CFI_cdesc_t *dv, CFI_rank_t rank) { in AddNoiseToCdesc() argument [all …]
|
/llvm-project/mlir/lib/ExecutionEngine/ |
H A D | RunnerUtils.cpp | 135 extern "C" void printMemrefI32(int64_t rank, void *ptr) { in printMemrefI32() argument 136 UnrankedMemRefType<int32_t> descriptor = {rank, ptr}; in printMemrefI32() 140 extern "C" void printMemrefI64(int64_t rank, void *ptr) { in printMemrefI64() argument 141 UnrankedMemRefType<int64_t> descriptor = {rank, ptr}; in printMemrefI64() 145 extern "C" void printMemrefF32(int64_t rank, void *ptr) { in printMemrefF32() argument 146 UnrankedMemRefType<float> descriptor = {rank, ptr}; in printMemrefF32() 150 extern "C" void printMemrefF64(int64_t rank, void *ptr) { in printMemrefF64() argument 151 UnrankedMemRefType<double> descriptor = {rank, ptr}; in printMemrefF64() 158 extern "C" void printMemrefInd(int64_t rank, void *ptr) { in printMemrefInd() argument 159 UnrankedMemRefType<impl::index_type> descriptor = {rank, ptr}; in printMemrefInd() [all …]
|
/llvm-project/openmp/runtime/test/worksharing/sections/ |
H A D | omp_sections_nowait.c | 19 void wait_for_release_then_increment(int rank) in wait_for_release_then_increment() argument 22 " and waits.\n", rank); in wait_for_release_then_increment() 28 void release_and_increment(int rank) in release_and_increment() argument 30 fprintf(stderr, "Thread nr %d sets release to 1\n", rank); in release_and_increment() 44 int rank; in test_omp_sections_nowait() local 45 rank = omp_get_thread_num (); in test_omp_sections_nowait() 50 wait_for_release_then_increment(rank); in test_omp_sections_nowait() 54 wait_for_release_then_increment(rank); in test_omp_sections_nowait() 58 wait_for_release_then_increment(rank); in test_omp_sections_nowait() 63 "immediately to next sections construct to release.\n", rank); in test_omp_sections_nowait() [all …]
|
/llvm-project/flang/runtime/ |
H A D | descriptor.cpp | 34 void *p, int rank, const SubscriptValue *extent, in Establish() 38 elementBytes, rank, extent, /*external=*/false)}; in Establish() 45 &raw_, p, attribute, t.raw(), elementBytes, rank, extent); in Establish() 50 for (int j{0}; j < rank; ++j) { in Establish() 79 int rank, const SubscriptValue *extent, ISO::CFI_attribute_t attribute, in Establish() 81 Establish(TypeCode(c, kind), BytesFor(c, kind), p, rank, extent, attribute, 86 std::size_t characters, void *p, int rank, const SubscriptValue *extent, in Establish() 89 characterKind * characters, p, rank, extent, attribute, addendum); in Establish() 93 void *p, int rank, const SubscriptValue *extent, in Establish() 95 Establish(TypeCode{TypeCategory::Derived, 0}, dt.sizeInBytes(), p, rank, in Establish() 33 Establish(TypeCode t,std::size_t elementBytes,void * p,int rank,const SubscriptValue * extent,ISO::CFI_attribute_t attribute,bool addendum) Establish() argument 76 Establish(TypeCategory c,int kind,void * p,int rank,const SubscriptValue * extent,ISO::CFI_attribute_t attribute,bool addendum) Establish() argument 83 Establish(int characterKind,std::size_t characters,void * p,int rank,const SubscriptValue * extent,ISO::CFI_attribute_t attribute,bool addendum) Establish() argument 90 Establish(const typeInfo::DerivedType & dt,void * p,int rank,const SubscriptValue * extent,ISO::CFI_attribute_t attribute) Establish() argument 101 Create(TypeCode t,std::size_t elementBytes,void * p,int rank,const SubscriptValue * extent,ISO::CFI_attribute_t attribute,bool addendum,const typeInfo::DerivedType * dt) Create() argument 119 Create(TypeCategory c,int kind,void * p,int rank,const SubscriptValue * extent,ISO::CFI_attribute_t attribute) Create() argument 126 Create(int characterKind,SubscriptValue characters,void * p,int rank,const SubscriptValue * extent,ISO::CFI_attribute_t attribute) Create() argument 133 Create(const typeInfo::DerivedType & dt,void * p,int rank,const SubscriptValue * extent,ISO::CFI_attribute_t attribute) Create() argument 265 ApplyMold(const Descriptor & mold,int rank) ApplyMold() argument [all...] |
H A D | character.cpp | 93 terminator, x.rank() == y.rank() || x.rank() == 0 || y.rank() == 0); in Compare() 94 int rank{std::max(x.rank(), y.rank())}; in Compare() local 97 for (int j{0}; j < rank; ++j) { in Compare() 98 if (x.rank() > 0 && y.rank() > 0) { in Compare() 109 ub[j] = (x.rank() ? x : y).GetDimension(j).Extent(); in Compare() 116 TypeCategory::Logical, 1, nullptr, rank, ub, CFI_attribute_allocatable); in Compare() 117 for (int j{0}; j < rank; ++j) { in Compare() 160 int rank{string.rank()}; in AdjustLRHelper() local 163 for (int j{0}; j < rank; ++j) { in AdjustLRHelper() 170 result.Establish(string.type(), elementBytes, nullptr, rank, ub, in AdjustLRHelper() [all …]
|
/llvm-project/mlir/test/Dialect/Linalg/ |
H A D | named-ops-fail.mlir | 12 // CHECK: op expected operand rank (2) to match the result rank of indexing_map #0 (3) 28 // CHECK: op expected operand rank (2) to match the result rank of indexing_map #0 (3) 44 // CHECK: op expected operand rank (2) to match the result rank of indexing_map #0 (3) 60 // CHECK: op expected operand rank (2) to match the result rank of indexing_map #0 (3) 76 // CHECK: op expected operand rank (2) to match the result rank of indexing_map #0 (3) 92 // CHECK: op expected operand rank (2) to match the result rank of indexing_map #0 (3) 108 // CHECK: op expected operand rank (2) to match the result rank of indexing_map #0 (3) 124 // CHECK: op expected operand rank (2) to match the result rank of indexing_map #0 (3) 140 // CHECK: op expected operand rank (2) to match the result rank of indexing_map #0 (3) 156 // CHECK: op expected operand rank (2) to match the result rank of indexing_map #0 (3) [all …]
|
/llvm-project/flang/unittests/Runtime/ |
H A D | TemporaryStack.cpp | 30 ASSERT_EQ(lhs.rank() == rhs.rank(), true); in descriptorAlmostEqual() 34 ASSERT_EQ(memcmp(lhsRaw.dim, rhsRaw.dim, lhs.rank()) == 0, true); in descriptorAlmostEqual() 52 constexpr size_t rank = 2; in TEST() local 54 const SubscriptValue extent[rank]{42, 24}; in TEST() 56 StaticDescriptor<rank> testDescriptorStorage[3]; in TEST() 60 inputDesc.Establish(code, elementBytes, descriptorPtr, rank, extent); in TEST() 110 const size_t rank = getRank(i); in TEST() local 111 for (unsigned dim = 0; dim < rank; ++dim) { in TEST() 117 nullptr, rank, extent, CFI_attribute_allocatable, adendum)); in TEST() 120 for (unsigned dim = 0; dim < rank; ++dim) { in TEST() [all …]
|
/llvm-project/libcxx/test/std/containers/views/mdspan/ |
H A D | CustomTestLayouts.h | 66 if constexpr (extents_type::rank() == 0) in required_span_size_is_representable() 70 for (rank_type r = 1; r < extents_type::rank(); r++) { in required_span_size_is_representable() 92 for (rank_type r = 0; r < extents_type::rank(); r++) { in mapping() 105 for (rank_type r = 0; r < extents_type::rank(); r++) { in mapping() 122 for (size_t r = 0; r < extents_type::rank(); r++) in required_span_size() 128 requires((sizeof...(Indices) == extents_type::rank()) && (std::is_convertible_v<Indices, index_type> && ...) && 131 std::array<index_type, extents_type::rank()> idx_a{static_cast<index_type>(static_cast<index_type>(idx) % Wrap)...}; in operator() 134 ((res = idx_a[extents_type::rank() - 1 - Pos] + in operator() 135 (extents_.extent(extents_type::rank() - 1 - Pos) < Wrap ? extents_.extent(extents_type::rank() in operator() [all...] |
/llvm-project/mlir/include/mlir/ExecutionEngine/ |
H A D | RunnerUtils.h | 49 << " rank = " << v.rank << " offset = " << v.offset; in printMemRefMetaData() 51 if (v.rank == 0) in printMemRefMetaData() 54 for (int64_t i = 1; i < v.rank; ++i) in printMemRefMetaData() 144 static void print(std::ostream &os, T *base, int64_t dim, int64_t rank, 147 static void printFirst(std::ostream &os, T *base, int64_t dim, int64_t rank, 150 static void printLast(std::ostream &os, T *base, int64_t dim, int64_t rank, 157 int64_t rank, int64_t offset, 161 print(os, base, dim - 1, rank, offset, sizes + 1, strides + 1); 174 int64_t rank, int64_t offset, 180 printFirst(os, base, dim, rank, offset, sizes, strides); [all …]
|
/llvm-project/openmp/runtime/test/worksharing/single/ |
H A D | omp_single_nowait.c | 14 void wait_for_release_then_increment(int rank) in wait_for_release_then_increment() argument 17 " and waits.\n", rank); in wait_for_release_then_increment() 23 void release_and_increment(int rank) in release_and_increment() argument 25 fprintf(stderr, "Thread nr %d sets release to 1\n", rank); in release_and_increment() 38 int rank; in test_omp_single_nowait() local 39 rank = omp_get_thread_num (); in test_omp_single_nowait() 42 wait_for_release_then_increment(rank); in test_omp_single_nowait() 46 wait_for_release_then_increment(rank); in test_omp_single_nowait() 50 wait_for_release_then_increment(rank); in test_omp_single_nowait() 55 release_and_increment(rank); in test_omp_single_nowait()
|