mpich/maint/structalign.c

/*
 * Copyright (C) by Argonne National Laboratory
 *     See COPYRIGHT in top-level directory
 */

#include <stdio.h>
#define DBG(a,b,c)
int main(int argc, char *argv[])
{
    FILE *cf;
    int is_packed = 1;
    int is_two = 1;
    int is_four = 1;
    int is_eight = 1;
    int is_sixteen = 1;
    struct {
        char a;
        float b;
    } char_float;
    struct {
        float b;
        char a;
    } float_char;
    struct {
        char a;
        double b;
    } char_double;
    struct {
        double b;
        char a;
    } double_char;
#ifdef HAVE_LONG_DOUBLE
    struct {
        char a;
        long double b;
    } char_long_double;
    struct {
        long double b;
        char a;
    } long_double_char;
    struct {
        long double a;
        int b;
        char c;
    } long_double_int_char;
#endif
    int size, extent1, extent2;

    size = sizeof(char) + sizeof(float);
    extent1 = sizeof(char_float);
    extent2 = sizeof(float_char);
    if (size != extent1)
        is_packed = 0;
    if ((extent1 % 2) != 0 && (extent2 % 2) != 0)
        is_two = 0;
    if ((extent1 % 4) != 0 && (extent2 % 4) != 0)
        is_four = 0;
    if (sizeof(float) == 8 && (extent1 % 8) != 0 && (extent2 % 8) != 0)
        is_eight = 0;
    DBG("char_float", size, extent1);

    size = sizeof(char) + sizeof(double);
    extent1 = sizeof(char_double);
    extent2 = sizeof(double_char);
    if (size != extent1)
        is_packed = 0;
    if ((extent1 % 2) != 0 && (extent2 % 2) != 0)
        is_two = 0;
    if ((extent1 % 4) != 0 && (extent2 % 4) != 0)
        is_four = 0;
    if (sizeof(double) == 8 && (extent1 % 8) != 0 && (extent2 % 8) != 0)
        is_eight = 0;
    DBG("char_double", size, extent1);

#ifdef HAVE_LONG_DOUBLE
    size = sizeof(char) + sizeof(long double);
    extent1 = sizeof(char_long_double);
    extent2 = sizeof(long_double_char);
    if (size != extent1)
        is_packed = 0;
    if ((extent1 % 2) != 0 && (extent2 % 2) != 0)
        is_two = 0;
    if ((extent1 % 4) != 0 && (extent2 % 4) != 0)
        is_four = 0;
    if (sizeof(long double) >= 8 && (extent1 % 8) != 0 && (extent2 % 8) != 0)
        is_eight = 0;
    if (sizeof(long double) > 8 && (extent1 % 16) != 0 && (extent2 % 16) != 0)
        is_sixteen = 0;
    DBG("char_long-double", size, extent1);

    extent1 = sizeof(long_double_int_char);
    if ((extent1 % 2) != 0)
        is_two = 0;
    if ((extent1 % 4) != 0)
        is_four = 0;
    if (sizeof(long double) >= 8 && (extent1 % 8) != 0)
        is_eight = 0;
    if (sizeof(long double) > 8 && (extent1 % 16) != 0)
        is_sixteen = 0;
#else
    is_sixteen = 0;
#endif

    if (is_sixteen) {
        is_eight = 0;
        is_four = 0;
        is_two = 0;
    }

    if (is_eight) {
        is_four = 0;
        is_two = 0;
    }

    if (is_four)
        is_two = 0;

    /* Tabulate the results */
    cf = fopen("ctest.out", "w");
    if (is_packed + is_two + is_four + is_eight + is_sixteen == 0) {
        fprintf(cf, "Could not determine alignment\n");
    } else {
        if (is_packed + is_two + is_four + is_eight + is_sixteen != 1) {
            fprintf(cf, "error!\n");
        } else {
            if (is_packed)
                fprintf(cf, "packed\n");
            if (is_two)
                fprintf(cf, "two\n");
            if (is_four)
                fprintf(cf, "four\n");
            if (is_eight)
                fprintf(cf, "eight\n");
            if (is_sixteen)
                fprintf(cf, "sixteen\n");
        }
    }
    fclose(cf);
    return 0;
}