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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
//===-- unittests/Runtime/InputExtensions.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 "CrashHandlerFixture.h"
#include "flang-rt/runtime/descriptor.h"
#include "flang/Runtime/io-api.h"
#include <algorithm>
#include <array>
#include <cstring>
#include <gtest/gtest.h>
#include <tuple>
using namespace Fortran::runtime;
using namespace Fortran::runtime::io;
struct InputExtensionTests : CrashHandlerFixture {};
TEST(InputExtensionTests, SeparatorInField_F) {
static const struct {
int get;
const char *format, *data;
double expect[3];
} test[] = {
{2, "(2F6)", "1.25,3.75,", {1.25, 3.75}},
{2, "(2F6)", "1.25 ,3.75 ,", {1.25, 3.75}},
{2, "(DC,2F6)", "1,25;3,75;", {1.25, 3.75}},
{2, "(DC,2F6)", "1,25 ;3,75 ;", {1.25, 3.75}},
};
for (std::size_t j{0}; j < sizeof test / sizeof *test; ++j) {
auto cookie{IONAME(BeginInternalFormattedInput)(test[j].data,
std::strlen(test[j].data), test[j].format,
std::strlen(test[j].format))};
for (int k{0}; k < test[j].get; ++k) {
float got;
IONAME(InputReal32)(cookie, got);
ASSERT_EQ(got, test[j].expect[k])
<< "expected " << test[j].expect[k] << ", got " << got;
}
auto status{IONAME(EndIoStatement)(cookie)};
ASSERT_EQ(status, 0) << "error status " << status << " on F test case "
<< j;
}
}
TEST(InputExtensionTests, SeparatorInField_I) {
static const struct {
int get;
const char *format, *data;
std::int64_t expect[3];
} test[] = {
{2, "(2I4)", "12,34,", {12, 34}},
{2, "(2I4)", "12 ,34 ,", {12, 34}},
{2, "(DC,2I4)", "12;34;", {12, 34}},
{2, "(DC,2I4)", "12 ;34 ;", {12, 34}},
};
for (std::size_t j{0}; j < sizeof test / sizeof *test; ++j) {
auto cookie{IONAME(BeginInternalFormattedInput)(test[j].data,
std::strlen(test[j].data), test[j].format,
std::strlen(test[j].format))};
for (int k{0}; k < test[j].get; ++k) {
std::int64_t got;
IONAME(InputInteger)(cookie, got);
ASSERT_EQ(got, test[j].expect[k])
<< "expected " << test[j].expect[k] << ", got " << got;
}
auto status{IONAME(EndIoStatement)(cookie)};
ASSERT_EQ(status, 0) << "error status " << status << " on I test case "
<< j;
}
}
TEST(InputExtensionTests, SeparatorInField_L) {
static const struct {
int get;
const char *format, *data;
bool expect[3];
} test[] = {
{2, "(2L4)", ".T,F,", {true, false}},
{2, "(2L4)", ".F,T,", {false, true}},
{2, "(2L4)", ".T.,F,", {true, false}},
{2, "(2L4)", ".F.,T,", {false, true}},
{2, "(DC,2L4)", ".T;F,", {true, false}},
{2, "(DC,2L4)", ".F;T,", {false, true}},
{2, "(DC,2L4)", ".T.;F,", {true, false}},
{2, "(DC,2L4)", ".F.;T,", {false, true}},
};
for (std::size_t j{0}; j < sizeof test / sizeof *test; ++j) {
auto cookie{IONAME(BeginInternalFormattedInput)(test[j].data,
std::strlen(test[j].data), test[j].format,
std::strlen(test[j].format))};
for (int k{0}; k < test[j].get; ++k) {
bool got;
IONAME(InputLogical)(cookie, got);
ASSERT_EQ(got, test[j].expect[k])
<< "expected " << test[j].expect[k] << ", got " << got;
}
auto status{IONAME(EndIoStatement)(cookie)};
ASSERT_EQ(status, 0) << "error status " << status << " on L test case "
<< j;
}
}
|
