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