[Chasm-interop-cvs] chasm/test/descriptors testdesc.c,1.35,1.36

[<ras...@us...>]

Update of /cvsroot/chasm-interop/chasm/test/descriptors
In directory sc8-pr-cvs1:/tmp/cvs-serv15446

Modified Files:
	testdesc.c 
Log Message:
Changed array element cast if F90_MIN_ELEMENT_SIZE == 4

Index: testdesc.c
===================================================================
RCS file: /cvsroot/chasm-interop/chasm/test/descriptors/testdesc.c,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** testdesc.c	30 Oct 2003 17:26:54 -0000	1.35
--- testdesc.c	30 Oct 2003 20:46:55 -0000	1.36
***************
*** 1205,1209 ****
--- 1205,1213 ----
    addr = cc.getArrayBaseAddress(dv_ia1d, rank);
    for (i = 0; i < 10; i++) {
+ #if F90_MIN_ELEMENT_SIZE == 4
+     int* a = (int*) addr;
+ #else
      char* a = (char*) addr;
+ #endif
      if (a[i] != i+1) {
        fprintf(stderr, "Value error for i1a1d(%d) = %d\n", i+1, a[i]);
***************
*** 1241,1245 ****
--- 1245,1253 ----
    addr = cc.getArrayBaseAddress(dv_ia1d, rank);
    for (i = 0; i < 10; i++) {
+ #if F90_MIN_ELEMENT_SIZE == 4
+     int* a = (int*) addr;
+ #else
      short* a = (short*) addr;
+ #endif
      if (a[i] != i+1) {
        fprintf(stderr, "Value error for i2a1d(%d) = %d\n", i+1, a[i]);