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
|
// blitz-bugs/archive/0163.html
#include "testsuite.h"
#include <blitz/array.h>
using namespace blitz;
struct A {
Array<double,2> a,b,c;
A()
: a(FortranArray<2>(contiguousData))
{
a.resize(10,10);
// pathological parse-as-function problem
Array<double,2> d((FortranArray<2>(contiguousData)));
d.resize(10,10);
Array<double,2> e(0,0,FortranArray<2>(contiguousData));
e.resize(10,10);
BZTEST(a.extent(0) == 10 && a.extent(1) == 10);
BZTEST(a.stride(0) == 1 && a.stride(1) == 10);
BZTEST(d.extent(0) == 10 && d.extent(1) == 10);
BZTEST(d.stride(0) == 1 && d.stride(1) == 10);
BZTEST(e.extent(0) == 10 && e.extent(1) == 10);
BZTEST(e.stride(0) == 1 && e.stride(1) == 10);
}
};
int main()
{
A x;
}
|
