From 3da8316ca3edf81cb17e19551d9499855d52905c Mon Sep 17 00:00:00 2001
From: J08nY
Date: Tue, 29 Aug 2017 14:53:36 +0200
Subject: Add first working test.

---
 src/math/subgroups.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/math')

diff --git a/src/math/subgroups.c b/src/math/subgroups.c
index 903401e..3b84d5c 100644
--- a/src/math/subgroups.c
+++ b/src/math/subgroups.c
@@ -61,7 +61,7 @@ static GEN subgroups_exponents(GEN order) {
 
 GEN subgroups_prime(const curve_t *curve, const config_t *cfg) {
 	if (cfg->prime || isprime(curve->order)) {
-		return gtovec(curve->order);
+		return gtocol(curve->order);
 	} else {
 		return subgroups_factors(curve->order);
 	}
-- 
cgit v1.3.1