1*77ff6f7dSPeter Klausler //===-- runtime/support.cpp -----------------------------------------------===//
2*77ff6f7dSPeter Klausler //
3*77ff6f7dSPeter Klausler // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4*77ff6f7dSPeter Klausler // See https://llvm.org/LICENSE.txt for license information.
5*77ff6f7dSPeter Klausler // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6*77ff6f7dSPeter Klausler //
7*77ff6f7dSPeter Klausler //===----------------------------------------------------------------------===//
8*77ff6f7dSPeter Klausler 
9*77ff6f7dSPeter Klausler #include "flang/Runtime/support.h"
10*77ff6f7dSPeter Klausler #include "flang/Runtime/descriptor.h"
11*77ff6f7dSPeter Klausler 
12*77ff6f7dSPeter Klausler namespace Fortran::runtime {
13*77ff6f7dSPeter Klausler extern "C" {
14*77ff6f7dSPeter Klausler 
RTNAME(IsContiguous)15*77ff6f7dSPeter Klausler bool RTNAME(IsContiguous)(const Descriptor &descriptor) {
16*77ff6f7dSPeter Klausler   return descriptor.IsContiguous();
17*77ff6f7dSPeter Klausler }
18*77ff6f7dSPeter Klausler 
19*77ff6f7dSPeter Klausler } // extern "C"
20*77ff6f7dSPeter Klausler } // namespace Fortran::runtime
21