Sacado Package Browser (Single Doxygen Collection)  Version of the Day
Fad_KokkosTests_Serial.cpp
Go to the documentation of this file.
1 // @HEADER
2 // ***********************************************************************
3 //
4 // Sacado Package
5 // Copyright (2006) Sandia Corporation
6 //
7 // Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
8 // the U.S. Government retains certain rights in this software.
9 //
10 // This library is free software; you can redistribute it and/or modify
11 // it under the terms of the GNU Lesser General Public License as
12 // published by the Free Software Foundation; either version 2.1 of the
13 // License, or (at your option) any later version.
14 //
15 // This library is distributed in the hope that it will be useful, but
16 // WITHOUT ANY WARRANTY; without even the implied warranty of
17 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
18 // Lesser General Public License for more details.
19 //
20 // You should have received a copy of the GNU Lesser General Public
21 // License along with this library; if not, write to the Free Software
22 // Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301
23 // USA
24 // Questions? Contact David M. Gay (dmgay@sandia.gov) or Eric T. Phipps
25 // (etphipp@sandia.gov).
26 //
27 // ***********************************************************************
28 // @HEADER
32 
33 #include "Fad_KokkosTests.hpp"
34 
35 #include "Kokkos_Core.hpp"
36 
37 // Instantiate tests for Serial device
38 using Kokkos::Serial;
39 VIEW_FAD_TESTS_D( Serial )
40 
41 // Add a unit test verifying something from Albany compiles
42 TEUCHOS_UNIT_TEST(Kokkos_View_Fad, DynRankMauroDeepCopy )
43 {
44  Kokkos::DynRankView<Sacado::Fad::DFad<double>,Kokkos::Serial> v1(
45  "v1", 3, 5);
46  Kokkos::DynRankView<Sacado::Fad::DFad<double>,Kokkos::LayoutRight,Kokkos::HostSpace> v2("v2", 3 , 5);
47 
48  Kokkos::deep_copy(v1, v2);
49 
50  // We're just verifying this compiles
51  success = true;
52 }
53 
54 int main( int argc, char* argv[] ) {
55  Teuchos::GlobalMPISession mpiSession(&argc, &argv);
56 
57  // Initialize serial
58  Kokkos::Serial::initialize();
59  if (!std::is_same<Kokkos::Serial, Kokkos::HostSpace::execution_space>::value)
60  Kokkos::HostSpace::execution_space::initialize();
61 
63 
64  // Finalize serial
65  if (!std::is_same<Kokkos::Serial, Kokkos::HostSpace::execution_space>::value)
66  Kokkos::HostSpace::execution_space::finalize();
67  Kokkos::Serial::finalize();
68 
69  return res;
70 }
int main(int argc, char *argv[])
static int runUnitTestsFromMain(int argc, char *argv[])
TEUCHOS_UNIT_TEST(Kokkos_View_Fad, DynRankMauroDeepCopy)
#define VIEW_FAD_TESTS_D(D)