test gcc replacement

glicid/packages/mpi.scm

@@ -112,33 +112,20 @@
  )
 )
 
+(use-modules (guix transformations))
+
+;(define transform-to-gcc11
+;  ;; The package transformation procedure.
+;  (options->transformation
+;   '(
+;     (with-c-toolchain . "gcc-toolchain@11"))))
+
+(define gcc11-instead-of-gcc
+  ;; This is a procedure to replace GCC by GCC11,
+  ;; recursively.
+  (package-input-rewriting `((,gcc-toolchain . ,gcc-toolchain-11))))
+
+
 (define-public openmpi-glicid-gcc-11 
- (package
+ (gcc11-instead-of-gcc openmpi-glicid))
-  (inherit openmpi-glicid)
-  (version (string-append (package-version openmpi-glicid) "-gcc-11" ))
-;  (name "glicid-openpmi-gcc-11")
-
-  (inputs `(("gcc-11", gcc-11)  
-            ("gfortran-11", gfortran-11)
-;	    ("glicid-ucx-gcc-11",glicid-ucx-gcc-11)
-;            ("glicid-rdma-core-gcc-11",glicid-rdma-core-gcc-11)
-;            ("libfabric",glicid-libfabric-gcc-11) 
-                  ,@(package-inputs openmpi-glicid)))
-  )
-)
-
-
-;(define-public glicid-specific-openmpi
-;  (package
-;    (inherit glicid-openmpi-gcc-11)
-;    (name "glicid-specific-openmpi")
-;      (inputs `(
-;       ("gcc",gcc-11)
-;       ("rdma-core",glicid-rdma-core-gcc-11)
-;       ("ucx",glicid-ucx-gcc-10)
-;       ("libfabric",glicid-libfabric-gcc-11)
-;;       ("slurm", glicid-specific-slurm)
-;      ,@(package-inputs glicid-openmpi-gcc-11)))
-;  )
-;)