| | 101 | |
|---|
| | 102 | /* Do the same operation for read_int.test */ |
|---|
| | 103 | /* Create the target file */ |
|---|
| | 104 | fd = upc_all_fopen( fname_int, |
|---|
| | 105 | UPC_WRONLY | UPC_INDIVIDUAL_FP | UPC_CREATE | UPC_TRUNC, 1, &hints); |
|---|
| | 106 | if( fd == NULL ) |
|---|
| | 107 | GULA_FAIL("failed to create the file"); |
|---|
| | 108 | |
|---|
| | 109 | /* Initialize the data */ |
|---|
| | 110 | for( i = 0; i < BUFSIZE; i++ ) |
|---|
| | 111 | int_buffer[i] = i; |
|---|
| | 112 | |
|---|
| | 113 | upc_barrier; |
|---|
| | 114 | |
|---|
| | 115 | /* The data is overwriten by THREADS times, so don't panic */ |
|---|
| | 116 | for( i = 0; i< 1000; i++ ) { |
|---|
| | 117 | ret = upc_all_fwrite_local(fd, int_buffer, sizeof(int), BUFSIZE, sync); |
|---|
| | 118 | if (ret != BUFSIZE * sizeof(int)) |
|---|
| | 119 | GULA_FAIL("failed to write"); |
|---|
| | 120 | } |
|---|
| | 121 | if( upc_all_fclose(fd) != 0 ) |
|---|
| | 122 | GULA_FAIL("failed to close the file"); |
|---|
| | 123 | |
|---|
| | 124 | upc_barrier; |
|---|
| | 125 | |
|---|
| | 126 | fd = upc_all_fopen( fname_int, |
|---|
| | 127 | UPC_RDONLY | UPC_INDIVIDUAL_FP, 0, NULL); |
|---|
| | 128 | if( fd == NULL ) |
|---|
| | 129 | GULA_FAIL("failed to open the file"); |
|---|
| | 130 | |
|---|
| | 131 | /* Initialize the data */ |
|---|
| | 132 | for( i = 0; i < BUFSIZE; i++ ) |
|---|
| | 133 | int_buffer[i] = 0; |
|---|
| | 134 | upc_barrier; |
|---|
| | 135 | |
|---|
| | 136 | count = 0; |
|---|
| | 137 | for( i = 0; i < 1000; i++) { |
|---|
| | 138 | ret = upc_all_fread_local(fd, int_buffer, sizeof(int), BUFSIZE, sync); |
|---|
| | 139 | if( ret != BUFSIZE * sizeof(int)) |
|---|
| | 140 | GULA_FAIL("failed to upc_all_fread properly"); |
|---|
| | 141 | /* Validation */ |
|---|
| | 142 | for( j = 0; j < BUFSIZE; j++, count ++ ) |
|---|
| | 143 | if( int_buffer[j] != count % 128 ) |
|---|
| | 144 | GULA_FAIL("failed to read correct data using upc_all_fread_local"); |
|---|
| | 145 | } |
|---|
| | 146 | if( upc_all_fclose(fd) != 0 ) |
|---|
| | 147 | GULA_FAIL("failed to close the file"); |
|---|
| | 148 | |
|---|