Changeset cdbab55 for tests/gmp.c

Timestamp:

Aug 21, 2018, 2:24:29 PM (7 years ago)

Author:

Rob Schluntz <rschlunt@…>

Branches:

ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, deferred_resn, enum, forall-pointer-decay, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, no_list, persistent-indexer, pthread-emulation, qualifiedEnum

Children:

2a6292d

Parents:

2b79a70 (diff), efa8b6a (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'master' of plg.uwaterloo.ca:/u/cforall/software/cfa/cfa-cc

File:

• tests/gmp.c (moved) (moved from src/tests/gmp.c ) (3 diffs)

tests/gmp.c

@@ -1 @@
-// 
+//
 // Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
 //
 // The contents of this file are covered under the licence agreement in the
 // file "LICENCE" distributed with Cforall.
-// 
-// gmp.c -- 
-// 
+//
+// gmp.c --
+//
 // Author           : Peter A. Buhr
 // Created On       : Tue Apr 19 08:55:51 2016
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Sep 28 18:33:51 2017
-// Update Count     : 555
-// 
+// Last Modified On : Sat Aug 18 12:43:13 2018
+// Update Count     : 556
+//
 
 // NOTE: UBUNTU DOES NOT SUPPORT GMP MULTILIB, SO ONLY 64-BIT GMP IS TESTED.
 
-#include <gmp>
+#include <gmp.hfa>
 
 int main( void ) {
@@ -89 +89 @@
         fn = 1; fn2 = fn1; fn1 = fn;                                            // 2nd case
         sout | 1 | fn | endl;
-        for ( unsigned int i = 2; i <= 200; i += 1 ) {
+        for ( i; 2u ~= 200 ) {
                 fn = fn1 + fn2; fn2 = fn1; fn1 = fn;                    // general case
                 sout | i | fn | endl;
@@ -99 +99 @@
         Int fact = 1;                                                                           // 1st case
         sout | (int)0 | fact | endl;
-        for ( unsigned int i = 1; i <= 40; i += 1 ) {
+        for ( i; 1u ~= 40u ) {
                 fact *= i;                                                                              // general case
                 sout | i | fact | endl;