ORCA-C/Tests/Conformance/C18.3.0.1.CC

73 lines
1.6 KiB
Plaintext
Raw Normal View History

/* Conformance Test 18.3.0.1: Verification of realloc library function */
#include <stddef.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
int printf(const char *, ...);
struct S { int i; extended e; char ch [40]; };
int main (void)
{
struct S *rgn, *ptr1;
struct S s [3] = { {1, 1.0, "hey"}, {2, 2.0, "you"}, {3, 3.0, "person!"} };
/* Pass realloc a NULL pointer to initialally allocate some memory. */
rgn = (struct S *) realloc (NULL, 3 * (sizeof (struct S)) );
if (rgn == NULL)
goto Fail1;
/* Copy the structure array s into the allocated area. */
memcpy (rgn, s, sizeof (s));
/* Reallocate a larger area -- ensure initial contents are preserved. */
rgn = (struct S *) realloc (rgn, 5 * (sizeof (struct S)) );
if (rgn == NULL)
goto Fail1;
ptr1 = rgn;
if ((ptr1->i != 1) || (fabs(ptr1->e - 1.0) > 0.00001))
goto Fail;
if (strcmp (ptr1->ch, "hey"))
goto Fail;
ptr1 += 1;
if ((ptr1->i != 2) || (fabs(ptr1->e - 2.0) > 0.00001))
goto Fail;
if (strcmp (ptr1->ch, "you"))
goto Fail;
ptr1 += 1;
if ((ptr1->i != 3) || (fabs(ptr1->e - 3.0) > 0.00001))
goto Fail;
if (strcmp (ptr1->ch, "person!"))
goto Fail;
/* Ensure passing a size of 0 deallocates the memory. */
rgn = (struct S *) realloc (rgn, 0);
if (rgn != NULL)
goto Fail1;
printf ("Passed Conformance Test 18.3.0.1\n");
return 0;
Fail:
printf ("Failed Conformance Test 18.3.0.1\n");
return 0;
Fail1:
printf ("Unable to allocate memory for Conformance Test 18.3.0.1\n");
return 0;
}