Changeset 7270 in project


Ignore:
Timestamp:
01/05/08 13:16:36 (12 years ago)
Author:
Ivan Raikov
Message:

Updated to regression tests.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • mpi/trunk/tests/run.scm

    r7269 r7270  
    7575        (MPI:send n1 (modulo (+ myrank 1) size) 0 comm-world)))
    7676  ;; Barrier
    77   (MPI:barrier comm-world))
    78 
    79 
    80 (mpi-test)
    81 
     77  (MPI:barrier comm-world)
    8278 
    83 ;;   ;; Send and receive with tags
    84 ;;   (if (zero? myrank)
    85 ;;       (let ((data1  (string->blob "aa"))
    86 ;;          (data2  (string->blob "bb")))
    87 ;;      (print myrank ": sending (tag 0) " data )
    88 ;;      (MPI:send data1 1 0 comm-world)
    89 ;;      (print myrank ": sending (tag 1) " data )
    90 ;;      (MPI:send data2 1 1 comm-world)
    91 ;;      (let-values (((n src tag)  (MPI:receive-status MPI:any-source MPI:any-tag comm-world)))
    92 ;;        (print myrank ": received " n " (tag " tag ")" " from " src))
    93 ;;      (let-values (((n src tag)  (MPI:receive-status MPI:any-source MPI:any-tag comm-world)))
    94 ;;        (print myrank ": received " n " (tag " tag ")" " from " src)))
    95 ;;       (let-values (((n1 src tag1)  (MPI:receive-status MPI:any-source 0 comm-world)))
    96 ;;         (let ((nn1  (string->blob (string-append (blob->string n1) "a"))))
    97 ;;           (print myrank ": received " n1 " (tag " tag1 ")" " from " src
    98 ;;               ", resending " nn1)
    99 ;;        (let-values (((n2 src tag2)  (MPI:receive-status MPI:any-source MPI:any-tag comm-world)))
    100 ;;          (let ((nn2  (string->blob (string-append (blob->string n2) "b"))))
    101 ;;            (print myrank ": received " n2 " (tag " tag2 ")" " from " src
    102 ;;               ", resending " nn2)
    103 ;;            (MPI:send nn1 (modulo (+ 1 myrank) size) 1 comm-world))
    104 ;;            (MPI:send nn2 (modulo (+ 1 myrank) size) 0 comm-world)))))
    105 ;;   ;; Barrier
    106 ;;   (MPI:barrier comm-world)
     79  ;; Send and receive with tags
     80  (if (zero? myrank)
     81      (let ((data1  (string->blob "aa"))
     82            (data2  (string->blob "bb")))
     83        (print myrank ": sending (tag 0) " data )
     84        (MPI:send data1 1 0 comm-world)
     85        (print myrank ": sending (tag 1) " data )
     86        (MPI:send data2 1 1 comm-world)
     87        (let-values (((n src tag)  (MPI:receive-with-status MPI:any-source MPI:any-tag comm-world)))
     88          (print myrank ": received " n " (tag " tag ")" " from " src))
     89        (let-values (((n src tag)  (MPI:receive-with-status MPI:any-source MPI:any-tag comm-world)))
     90          (print myrank ": received " n " (tag " tag ")" " from " src)))
     91      (let-values (((n1 src tag1)  (MPI:receive-with-status MPI:any-source 0 comm-world)))
     92        (let ((nn1  (string->blob (string-append (blob->string n1) "a"))))
     93          (print myrank ": received " n1 " (tag " tag1 ")" " from " src
     94                 ", resending " nn1)
     95          (let-values (((n2 src tag2)  (MPI:receive-with-status MPI:any-source MPI:any-tag comm-world)))
     96            (let ((nn2  (string->blob (string-append (blob->string n2) "b"))))
     97              (print myrank ": received " n2 " (tag " tag2 ")" " from " src
     98                 ", resending " nn2)
     99              (MPI:send nn1 (modulo (+ 1 myrank) size) 1 comm-world))
     100            (MPI:send nn2 (modulo (+ 1 myrank) size) 0 comm-world)))))
     101  ;; Barrier
     102  (MPI:barrier comm-world)
    107103
    108104;;   ;; Send and receive base types
     
    427423;;   )
    428424         
    429                                  
     425  )
    430426                                 
     427
     428
     429(mpi-test)
     430
Note: See TracChangeset for help on using the changeset viewer.