1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
//===-- flang/unittests/Runtime/Pointer.cpp--------- -------------*- C++-*-===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
#include "flang/Runtime/pointer.h"
#include "gtest/gtest.h"
#include "tools.h"
#include "flang/Runtime/descriptor.h"
using namespace Fortran::runtime;
TEST(Pointer, BasicAllocateDeallocate) {
// REAL(4), POINTER :: p(:)
auto p{Descriptor::Create(TypeCode{Fortran::common::TypeCategory::Real, 4}, 4,
nullptr, 1, nullptr, CFI_attribute_pointer)};
// ALLOCATE(p(2:11))
RTNAME(PointerSetBounds)(*p, 0, 2, 11);
RTNAME(PointerAllocate)
(*p, /*hasStat=*/false, /*errMsg=*/nullptr, __FILE__, __LINE__);
EXPECT_TRUE(RTNAME(PointerIsAssociated)(*p));
EXPECT_EQ(p->Elements(), 10u);
EXPECT_EQ(p->GetDimension(0).LowerBound(), 2);
EXPECT_EQ(p->GetDimension(0).UpperBound(), 11);
// DEALLOCATE(p)
RTNAME(PointerDeallocate)
(*p, /*hasStat=*/false, /*errMsg=*/nullptr, __FILE__, __LINE__);
EXPECT_FALSE(RTNAME(PointerIsAssociated)(*p));
}
TEST(Pointer, ApplyMoldAllocation) {
// REAL(4), POINTER :: p
auto m{Descriptor::Create(TypeCode{Fortran::common::TypeCategory::Real, 4}, 4,
nullptr, 0, nullptr, CFI_attribute_pointer)};
RTNAME(PointerAllocate)
(*m, /*hasStat=*/false, /*errMsg=*/nullptr, __FILE__, __LINE__);
// CLASS(*), POINTER :: p
auto p{Descriptor::Create(TypeCode{Fortran::common::TypeCategory::Real, 4}, 4,
nullptr, 0, nullptr, CFI_attribute_pointer)};
p->raw().elem_len = 0;
p->raw().type = CFI_type_other;
RTNAME(PointerApplyMold)(*p, *m);
RTNAME(PointerAllocate)
(*p, /*hasStat=*/false, /*errMsg=*/nullptr, __FILE__, __LINE__);
EXPECT_EQ(p->ElementBytes(), m->ElementBytes());
EXPECT_EQ(p->type(), m->type());
}
TEST(Pointer, DeallocatePolymorphic) {
// CLASS(*) :: p
// ALLOCATE(integer::p)
auto p{Descriptor::Create(TypeCode{Fortran::common::TypeCategory::Integer, 4},
4, nullptr, 0, nullptr, CFI_attribute_pointer)};
RTNAME(PointerAllocate)
(*p, /*hasStat=*/false, /*errMsg=*/nullptr, __FILE__, __LINE__);
// DEALLOCATE(p)
RTNAME(PointerDeallocatePolymorphic)
(*p, nullptr, /*hasStat=*/false, /*errMsg=*/nullptr, __FILE__, __LINE__);
}
TEST(Pointer, AllocateFromScalarSource) {
// REAL(4), POINTER :: p(:)
auto p{Descriptor::Create(TypeCode{Fortran::common::TypeCategory::Real, 4}, 4,
nullptr, 1, nullptr, CFI_attribute_pointer)};
// ALLOCATE(p(2:11), SOURCE=3.4)
float sourecStorage{3.4F};
auto s{Descriptor::Create(Fortran::common::TypeCategory::Real, 4,
reinterpret_cast<void *>(&sourecStorage), 0, nullptr,
CFI_attribute_pointer)};
RTNAME(PointerSetBounds)(*p, 0, 2, 11);
RTNAME(PointerAllocateSource)
(*p, *s, /*hasStat=*/false, /*errMsg=*/nullptr, __FILE__, __LINE__);
EXPECT_TRUE(RTNAME(PointerIsAssociated)(*p));
EXPECT_EQ(p->Elements(), 10u);
EXPECT_EQ(p->GetDimension(0).LowerBound(), 2);
EXPECT_EQ(p->GetDimension(0).UpperBound(), 11);
EXPECT_EQ(*p->OffsetElement<float>(), 3.4F);
p->Destroy();
}
|
