static int group_field_test(void)
{
    int r = 1;
    BIGNUM *secp521r1_field = NULL;
    BIGNUM *sect163r2_field = NULL;
    EC_GROUP *secp521r1_group = NULL;
    EC_GROUP *sect163r2_group = NULL;
    BN_hex2bn(&secp521r1_field,
                "01FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
                "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
                "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
                "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"
                "FFFF");
    BN_hex2bn(&sect163r2_field,
                "08000000000000000000000000000000"
                "00000000C9");
    secp521r1_group = EC_GROUP_new_by_curve_name(NID_secp521r1);
    if (BN_cmp(secp521r1_field, EC_GROUP_get0_field(secp521r1_group)))
      r = 0;
    # ifndef OPENSSL_NO_EC2M
    sect163r2_group = EC_GROUP_new_by_curve_name(NID_sect163r2);
    if (BN_cmp(sect163r2_field, EC_GROUP_get0_field(sect163r2_group)))
      r = 0;
    # endif
    EC_GROUP_free(secp521r1_group);
    EC_GROUP_free(sect163r2_group);
    BN_free(secp521r1_field);
    BN_free(sect163r2_field);
    return r;
}
['static int group_field_test(void)\n{\n    int r = 1;\n    BIGNUM *secp521r1_field = NULL;\n    BIGNUM *sect163r2_field = NULL;\n    EC_GROUP *secp521r1_group = NULL;\n    EC_GROUP *sect163r2_group = NULL;\n    BN_hex2bn(&secp521r1_field,\n                "01FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"\n                "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"\n                "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"\n                "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF"\n                "FFFF");\n    BN_hex2bn(&sect163r2_field,\n                "08000000000000000000000000000000"\n                "00000000C9");\n    secp521r1_group = EC_GROUP_new_by_curve_name(NID_secp521r1);\n    if (BN_cmp(secp521r1_field, EC_GROUP_get0_field(secp521r1_group)))\n      r = 0;\n    # ifndef OPENSSL_NO_EC2M\n    sect163r2_group = EC_GROUP_new_by_curve_name(NID_sect163r2);\n    if (BN_cmp(sect163r2_field, EC_GROUP_get0_field(sect163r2_group)))\n      r = 0;\n    # endif\n    EC_GROUP_free(secp521r1_group);\n    EC_GROUP_free(sect163r2_group);\n    BN_free(secp521r1_field);\n    BN_free(sect163r2_field);\n    return r;\n}', 'EC_GROUP *EC_GROUP_new_by_curve_name(int nid)\n{\n    size_t i;\n    EC_GROUP *ret = NULL;\n    if (nid <= 0)\n        return NULL;\n    for (i = 0; i < curve_list_length; i++)\n        if (curve_list[i].nid == nid) {\n            ret = ec_group_new_from_data(curve_list[i]);\n            break;\n        }\n    if (ret == NULL) {\n        ECerr(EC_F_EC_GROUP_NEW_BY_CURVE_NAME, EC_R_UNKNOWN_GROUP);\n        return NULL;\n    }\n    return ret;\n}', 'const BIGNUM *EC_GROUP_get0_field(const EC_GROUP *group)\n{\n    return group->field;\n}']