;; -*-theme-d-*-

;; Copyright (C) 2017  Tommi Höynälänmaa
;; Distributed under GNU General Public License version 3,
;; see file doc/GPL-3.

;; Expected results: translation and running OK

;; Expected output:
;;   2.0
;;   1.0


(define-proper-program (tests test536)

  (import (standard-library core)
	  (standard-library console-io)
	  (tests test535))

  (define-simple-proc main (() <none> nonpure)
    (let ((cx (@ (standard-library complex) <complex>)
	      (make-my-complex 1.0 2.0)))
      (console-display-string (real->string
			       ((@ (standard-library complex) real-part)
				cx)))
      (console-newline)
      (console-display-string (real->string
			       ((@ (standard-library complex) imag-part)
				cx)))
      (console-newline))))
