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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
|
! UNSUPPORTED: system-windows
! RUN: split-file %s %t
! RUN: chmod +x %t/runtest.sh
! RUN: %t/runtest.sh %t %t/ffile.f90 %t/cfile.c %flang | 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;
}
!--- runtest.sh
#!/bin/bash
TMPDIR=$1
FFILE=$2
CFILE=$3
FLANG=$4
shift 4
FLAGS="$*"
BINDIR=`dirname $FLANG`
LIBDIR=$BINDIR/../lib
CCOMP=$BINDIR/clang
if [ -x $CCOMP ]
then
export LD_LIBRARY_PATH=$LD_LIBRARY_PATH:$LIBDIR
$CCOMP $FLAGS -c $CFILE -o $TMPDIR/cfile.o
$FLANG $FLAGS $FFILE $TMPDIR/cfile.o -o $TMPDIR/ctofortran
$TMPDIR/ctofortran # should print "PASS"
else
# No clang compiler, just pass by default
echo "PASS"
fi
|
