b55f7512a7
Extract Flang's runtime library to use the LLVM_ENABLE_RUNTIME mechanism. It will only become active when `LLVM_ENABLE_RUNTIMES=flang-rt` is used, which also changes the `FLANG_INCLUDE_RUNTIME` to `OFF` so the old runtime build rules do not conflict. This also means that unless `LLVM_ENABLE_RUNTIMES=flang-rt` is passed, nothing changes with the current build process. Motivation: * Consistency with LLVM's other runtime libraries (compiler-rt, libc, libcxx, openmp offload, ...) * Allows compiling the runtime for multiple targets at once using the LLVM_RUNTIME_TARGETS configuration options * Installs the runtime into the compiler's per-target resource directory so it can be automatically found even when cross-compiling Also see RFC discussion at https://discourse.llvm.org/t/rfc-use-llvm-enable-runtimes-for-flangs-runtime/80826
71 lines
1.5 KiB
Fortran
71 lines
1.5 KiB
Fortran
! UNSUPPORTED: system-windows
|
|
! UNSUPPORTED: offload-cuda
|
|
|
|
! RUN: split-file %s %t
|
|
! RUN: %clang -I"%include/flang" -c %t/cfile.c -o %t/cfile.o
|
|
! RUN: %flang -L"%libdir" %t/ffile.f90 %t/cfile.o -o %t/ctofortran
|
|
! RUN: env LD_LIBRARY_PATH="$LD_LIBRARY_PATH:%libdir" %t/ctofortran | FileCheck %s
|
|
|
|
!--- ffile.f90
|
|
program fmain
|
|
interface
|
|
subroutine csub() bind(c)
|
|
end subroutine
|
|
end interface
|
|
|
|
call csub()
|
|
end program fmain
|
|
|
|
subroutine foo(a) bind(c)
|
|
integer :: a(:)
|
|
if (lbound(a, 1) .ne. 1) then
|
|
print *, 'FAIL expected 1 for lbound but got ',lbound(a, 1)
|
|
stop 1
|
|
endif
|
|
|
|
if (ubound(a, 1) .ne. 10) then
|
|
print *, 'FAIL expected 10 for ubound but got ',ubound(a, 1)
|
|
stop 1
|
|
endif
|
|
|
|
do i = lbound(a,1),ubound(a,1)
|
|
!print *, a(i)
|
|
if (a(i) .ne. i) then
|
|
print *, 'FAIL expected', i, ' for index ',i, ' but got ',a(i)
|
|
stop 1
|
|
endif
|
|
enddo
|
|
print *, 'PASS'
|
|
end subroutine foo
|
|
|
|
! CHECK: PASS
|
|
!--- cfile.c
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <ISO_Fortran_binding.h>
|
|
|
|
void foo(CFI_cdesc_t*);
|
|
|
|
int a[10];
|
|
|
|
void csub() {
|
|
int i, res;
|
|
static CFI_CDESC_T(1) r1;
|
|
CFI_cdesc_t *desc = (CFI_cdesc_t*)&r1;
|
|
CFI_index_t extent[1] = {10};
|
|
|
|
for(i=0; i<10; ++i) {
|
|
a[i] = i+1;
|
|
}
|
|
|
|
res = CFI_establish(desc, (void*)a, CFI_attribute_other, CFI_type_int32_t,
|
|
sizeof(int), 1, extent);
|
|
if (res != 0) {
|
|
printf("FAIL CFI_establish returned %d instead of 0.\n",res);
|
|
exit(1);
|
|
}
|
|
|
|
foo(desc);
|
|
return;
|
|
}
|